r~ 



LABEL OOOOOOOOOpRINTEROOl/bOWCC £X OB JEC I / Rtrfui ; F ILL bGUKCEF lLE«5>YhBOL/CHtCKAL*EMi* QBjECT /READ 



3 
4 

6 
7 

9 

10 

12 
13 

115 
16 

18 
19 

A 20 
21 
22 

A 23 
24 

i# » 

£ 28 

Q 30 

31 " 

A 32 
33 
34 

tk 3S 
36 
37 ~ 

A 38 
39 
40 

«2 
43' 

45 
46 

48 
49 

51 
52 

S4 

55 

A 56 



SMESOiLMi: 



_y 



COMMENT: 



9 
10 



12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 



27 
28 



29 

10 



31 
12 
33 
34 
35 
36 



37 
38 



45 
46 
47 
W 
49 



50 

SI 



52 
53 
54 

55 
56 

5 



* TITLEJ B5500/b!i700 MARK XIV SYSTEM RELEASE * 

* Fl|_£ ID: SYMBQl/CHECkAu TAPE IDS S Y MBGL 1/F I LEOOO * 
-*-JttUiL MATERIAL 15 PHUPHjtTARY TH BURRUUGHS CORPORATION,*. 



* AND IS NOT TO BE REPRODUCED' USED' OR DISCLOSED 

* EXCEPT IK ACCORDANCE WITH PROGRAM LICENSE OR UPON 

* WRITTEN AUTHORIZATION OF ThE PATENT DIVISION UP 



00000002 
00000004 

qqu.u_oo.q_... 



* 
* 



BURROUGHS CORPORATION* UETRU1T» MICHIGAN 48232 
COPYRIGHT CC) 1965* \<H 1 , 1972 BURROUGHS CORPORATION 



00000008 
00000010 
QQ OQ__LL_ 



AA332366 Aa393iBG 



* AA759915 AA320206 
SYMBOL/CHECKAL APRIL 1*72 
EXECU TE WITH A COMMON VALUE Op ZERU AND ThE PRUgRAM WILL 



*} 



00000014 
00000016 
0Q0U0Q18 
00000019" 
00000020 
_>___.___«_ 



execute all test procedures once- 00000024 

It may be executed with a common value, of non zero, in this 00000026 

case th e common value should have the f'ohmat: 00 0j3£fii__ 

Common * rrrppp 00000030 

where ppp is the proceoure number t-q be executed and 00000032 

RRR IS THE NUMBER CF TIMES THE PROCEDURE HAS TO BE EXECUTED OQOOOQ 34 



FOR EXAMPLE COMMON = 12309* HILL EXECUTE PROCEDURE 94 FOR 

A CYCLE OF 123 TIMES. THIS FEATURE SHOULD BE USEC WHEN 

AN ERROR HAS BEEN DETECTED IN A PRUcEPUHE ANU THE TECHNICIANS 



00000036 
00000033 
00000040 



WISH TO "HANG IT IN A LOOP" FOR THE PROCEDURE 
"SINGLE STEP" THROUGH THE PROCEDURE, 
_^! NO DAT A CARD FILE TS REQUIRED — 



AND MAYBE 



THE CHECKAL PROGRAM Is MADE UP IN MAIN UF PKUCEDURE 

WITH APPROPRIATE CALLS ON THEM. EaCH PROCEDURE CONCERNS 

___£.KXN G_.OiJ.JL-A GlVFN ALGOL ,0 CONSTRUCT. 



DECLAKATlONS 
ITSELF WITH 



00000042 
00000044 
00000046 
00000048 
00000050 
■ 0Q0Qfl__2._ 



THE WORK AREAS OF THE PROGRAM ARE [ rt SINGLE DIMENSION ARRAYS 00000054 
CALLED TEMP AND ANS, THE ELEMENTS OF THE ARRAY TEMP ARE FILLED WITH 00000056 
VALUES GENERATED BY THE Ai Gfll COMPILER AND T HF MACHINE. Ff)R uAftlnyS nQtmnpsg 



SYNTACTICAL CONSTRUCTS In AlGQl. Tht ARRAY A nS IS 
EXACT BIT CONFIGURATION OF THE ANSWERS EXPECTED. 

A CALL Fq r a PROCEDURE TO BE EXlCUTEU AlSq CAUSES 



THEN F ILLED WITH THE 
A CALL UN A 



ROUTINE CALLED VERIFY. THIS ROUTINE COMPARES CVN ELEMENTS QF ARRAY 
TEMP WITH THOSE Of ARRAY A NS, CVN IS A PA«AMeT£H TO PROCEDURE VERIFY 

TELLING IT HO w MANY ELEMENTS OF THE ARRAYS \Q ChECK 

IF CVN ELEMENTS OF THe ARRAY cD hH ESPONp IN EVE R Y BIT POSITION 



00000060 
00000070 

ooooooao 



an 



OUTPUT LINE STATINS THIS PROCEDURE H> OK IS PRIMED ON THE LINE 
PRINTER. SHOULD ANY ELEMENT OR ELEMENTS OF ThE ARRwyS NUT COMPARE ThE 



00000090 

OOOOOlOO 

OQOUOll O 

00000120" 

0000013C 

00000140 



OUTPUT WILL STATE THAT THE PROCEDURE IS BAD. WhE^HER THE PROCEDURE IS 00000150 
OK OR BAD THE OUTPUT LINE AlWAYs CONTAINS A DESCRIPTION OF THE CONSTRUC TOOOOO 160 
BEING CHECKEO TOGETHER WITH THE PARAGRAPH AKD SUB»PaRAGRAPH NUMBER QF 00000170 

rule ontiCTOnr. tm tur rutr.ihPn «i > r\ , .. .. n ., 



THIS CONSTRUCT IN THE EXTENDED ALGOL MANUAL 

SHOULD THE PROCEDURE PHOOUCE A RESULT WHICH IS BAD'THEN THE VALUES 
OP_ALL ELEMENTS OF THE ARRAYS Aivia AWO TEMP ARE PRINTED QuT. IF THE 
ELEMENTS HaD C0MP A RE0 THAT FACT IS ACKNOWLEDGED BY CVNfXj IS TRUE. 
IF THE ELEMENT DOES NOT COMPARE THEN IN ADDITION TO PRINTING 
CVNCX3 IS FALSE THE EXACT VALUES OF TeMPCXJ AND *NSCX3 ARE PRINTED 



00000180 
00000190 
00000200 



GIVI N G VISUAL PROOF OF THE DISCREPENCY. 

THIS FALSE ANSWER CAN VERY EASILY BE TRACED BACK TO THE CONSTRUCT 
CREATING IT. SHqUlD THE ERROR OCCUR In SAY HRQCEUURE P81> TH E BUOY OF 
THIS PROCEDURE P81 CAN FQUND BY SEARCHING DOWN THE SEQUENCE 



00000210 
00000220 
00000230 



00000240 
00000250 
00000260 



OF THE LISTING 
THE PROCEDURE, 



FIELD 00000270 
FOR CARDS OF SEQUENCE NO A081-— ♦ WITHIN THE BODY OF 00000280 
SINCE THE ELEMENTS QF ARRAY TEMP ARE SEQUENTIALLY Op OQ 02 90 



FILLED' THE PARTICULAR CONSTRUCT CORRESPONDING TU CVMX] CAN BE LOCATED .00000300 
AT THE END OF PROCEDURE P8l THE FILL STATEMENT CN ARRAY ANS SHOWS 00000310 
WHAT EXACTLY WAS EXPECTED F'OR AN aNSWeR. WITH THIS INFORMATION IT IS 00000320 



POSSIBLE TO RAPIDLY RUN DOWN A COMPILER FAILURE ANO SOMETIMES A 
HARDWARE FAILURE. 
*» NOTE ** ALL WRITES TO THE FILE "FnQK* ARE OONE WITH 



00000330 

O0OO03A0 
00000341 



>T 



11 

12 
13 



"RELEASE" STATEMENTS. DO H T PATCH IN ANY WRIFc. ST ATFMfcNTb 
AS THESE WILL HANG THE SYSTEM 
"EGIN 



COMMENT THIS IS THE EXTENDED ALGOL MASTfcR PROGRAM 1 
INTEGER COMMON i 
DEFINE DO m COMMON la COMMON $ * 



00000342 
00000343 

.__OjQOjiOa5iL 



INTEGER II*IJ,JJ*JK* JKK; 

INTEGER CVN* PNO; 
BOOLEAN NEK; 



00000360 
00000361 
00000362 



ARRAY ANS C 1 • 503 ; 
ARRAY TEMP C1I503; 
BOOLEAN ARRAY CV Cl»503; 



00000363 
00000370 
Q000 3flQ 



ALPHA ARRAY PRGCIDS [05150, 0*53/ 
SAVE ARRAY FDUMM Y [0 I 2/ J 9 J ; 
FILE _0UT_FN0K 1(1,15); 



00000390 
00000400 
0000041 



PROCEDURE 
BEGIN 

FILL 



INITIALIZE* 
CV C*3 WITH 



00000420 
00000430 
00000 440 



00000450 

00000460 
UCTQ*UCTO*OCIO*OCTn*OCTO,QCTn,0-ln,n_Tn,nCTO,rmonfw,7r 



EJLl___ MP [*3hI.i_, 



FILL ANS C*3WITH 



OCT * OCT 0' QC T 0# OCT 0* OCT 0* OCT O'OCTQ* OCT 0* OCT 0*000 004 80 

OCTO/OCTO* OCT 0*0CT0*0CT0*aCT0*QCTO*0CT0*QCTO* 000004 90 
■ ncTQ»QrT(i*QrTQ*OrTn *0 LTQ»OrTn*QrTn»nf Tn»n fTn.nf > n n o 5 Q 

UCTO*QCT0*QCTO,acTO*aCTQ,0CTO,0CT0,OCT0*OCTO,OOOO0510 
OCTO»OCTO/OCTO#OCTO*OCTO; 00000520 

nCTOiOCTO/nCTO.firTO.nCTO.nr.TQ.nr-ro.ncTO.nf-TO'OOOO Q'sao 

OC T Q* DC T U* OC TO* OC T Q, DC T 0* OC TO*QC TO* OC TO/ OCT 0*00000540 

OCT 0, UCT * OC 1 0, OCT 0, COT 0,0CTC, OCT 0, OCT 0»0CTO, 00000550 

___..LQ/3 CTg>QCTO,0C T O>0CTQ,aCTO,UCTn*OCTn,nCT 0*0f]UOOSftn 

OCT 0* OCT Q* OCT 0* OC T 0* OCT 0* OCT 0* OCT 0* OCT 0* OCT 0*00000570 
QCT0*0CT0*OCT0*0CT0*QCTO; 00000580 

OCTO* OCT Q/QCTO* QCT 0*OCTO^QCTO*OCT0*QCT0* OCT 0*000005 90 
GC T 0* UC T 0* OC T 0* UC T 0/ UC T 0* DC T0*OC1O*OC TO* OCT 0*00000600 
CT0*0cT0'0CT0*DcT0* CTO*0CTO/OcTO*OcTO* OCT 0*00000610 
PC TO, PC TO * QC TO * JO TO * LC TO , DC TO* PC TO ,QC TO *0C TO, OQ000620 



_NOK «• false; 



CVN 
PNO 

end; 



o; 





OCTO*OCTO*OCTO,OCTO*OCTO*OCTO*OCTO*OCTO*OCTO*00000630"' 
0CT0*QCT0*DCTO,aCT0»GCT0j 00000640 

00000650 



PROCEDURE REPORT* 

BEGIN 
LABEL BOTTOM; 



00000660 
00000670 

0000068 



INTEGER I; 

STREAM PROCEDURE HEAD C F I L* NUK V * PROC 10 i>A , Pf,0 ) , 
VALUE NDKV*PNU; 



00000690 
00000700 
00000710 



BEGIN 

LOCAL T1J 
UB£ L H i 



00000720 
00000730 
00000740 



si*fil; 
fer; 

lbCOS * 8 LIT" 



DI«-LOC Ti; GS + 1 «DS* DUT1; COMMENT DI = 15T WD IN 

"); ouu; 



00000750 
00000760 
00000770 



10(0S*1 LIT " ");BS*iV LIT "TEST PROCEDURE NO. 
SI*LQC PNO* 0S*3 DEC* 0i»*-4 LIT " 

si»prqciosa; ds*6 «os; 



BUF00000780 
00000790 
OQ000600 



"; 



RELEASE CFID/CGMMENT WRITE C FNOK* FMHE AD * LHEADTl 
COMMENT THE FOLLOWING CARqo NO, 491* 492* 493* 494* 495* 496* 
**** * ARE BEING INSERTED To GET ARQUNO THE PRESENCE BIT BEING 



00000810 
00000820 
00000830 



***** 
***** 
***** 



ON 



FOR BOTH RELEASE STATEMENTS IN PROC, HEAD, THIS CAUSES THE 
UNPRINTEO BUT FILLED BUFFER TO BE OVERFILLED BEFORE IT IS 
RELEASED I 



00000640 
00000850 
00000660 



OQOOO870 
00000880 
00000890 



M 

3 
4 

M 

6 

7 

9 
10 



• • 



2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 



25 
26 

» 
28 
29 

30 
31 
32 

33 
34 
35 
36 

37 " 

38 

39 



si*fil; di«-loc ti; ds*i wns; o i *• t i ; comment di 

si«-loc nokv; si*-si + /; 
I F._j-£ r w i" TH^n BEG IN UJ±lU PS<-i O lH !L 



1ST WD UF BUfF / 00000900 

00000910 

li QQ0QQ.32Q . 

DS*5 LIT "15 OK n ;00000930 

63(DS* 1 LIT " -)M2C0S«-1 LIT " ">; 00000940 

RELEASE '(FID; CDMHLNT URITI CFNQKjFMOKW OflOOOgsn 



GO TO LI F.I'sD> 000U0960 

di«-ti; 0S«-10 LIT " "; 00000970 

DS<»6 LIT "IS BAD w i63(DS»l LlT" "); 000 009 60 



JJJ. 



41CDS* 1 LIT 

Release cf 



id; comment white 



(FNOK^FMBAD)' 



00000990 

00001000 

JlflfflJULflLiA. 



end; 
stream procedure 

— — VALUF li 



CVTrt.UE (FlL'15; 



00001020 
00001030 

QQ00104&- 



BEGlN 000010SO 

LOCAL Ti; 00001060 

ST»fil: ni»i_Qr Tit ns»l wnS: ni»T 1 irQMMfNT ni=aUFrrB TQPt Q000i o70 



2QCDS<-1 LIT " 
DS«-U LIT "J 

COMM ENT 



");DS*4 LIT "Cv C" 
= TrtU£"; 63C0S*1 
WRI TE (FNOHrFMCy, !, 



; S I «- L L I; DS<-2 DEC; 
LIT" ")> 20CL»S*1 LIT" "j; 

C_iLL L X L?Jl LLLAS £ ( F I D 



00001080 

00001090 

JiflOflllM. 



end; 
stream procedure 

VALUE I, 



CVFALSE (FIL#I)I 



-X- 



ooooino 

00001120 
0000 1 1 3 



BEGIN 00001140 

LOCAL T li 00001150 

Sl»FIii DJjLUlC Tl; Q3±i WRSf gj tl i i CQMMfc NT OT s riVFFFR LUHi 000-0.1160, 



20CDS+1 LIT" 
DS «.HLlT'»J * FALSE" 
. COMMENT 



"); US«-4 LlT M CV t"J 

; 63(dS*liT" ");20C 

WRITF (FNQK>FMCy,r> 



si*loc i; os*2 dec; 

OS*LiT" "); 
CyrmJRFLEASE CFlL) 



00001170 
00001180 
00Q01190 



end; 
stream procedure 

value 1>ti*t 



INT (FIL#I#TI>TIU»AI,AID># 

iu* ai* a io; 



00001200 
00001210 

00001220 



BEGIN 



35(DS<*1 LIT" 
DS«-2 DEC; DS«- 

JJS*JUJLI_!LJ!i 



LOCAL T1»T2; 
SI»FILJ PI+LQC Tl; pS + 1 WQ5; pi-Tli 



0000 

0000 
0000 



"); 0S*-6 LlT"TEMP C 

6 li i" "i 3 "; Sl«- 



♦•; si«-llc i; 
lqc tid; T 1*01 i 



1230 
1240 
1250 



DS*6 DEC 
SI*L0C T 

begin di*ti;ds 



57CDSM LIT" "); 



; COMMENT 1ST 6 DIG 

i; Ds<-7 dec;oi*di-i 

♦ 1 LIT «-"JD>T2 EN 



oooo 

oooo 

QQOQ 



1260 
1270 

1280. 



ITS RUILT;dI*DI-1;0S*2 RESET; 00001290 

;t2*duui*t2;si*-t2;if sb then 00001300 
d; ds*2 reset; 00001310 



42 



release cfil);commlnt write cfnok,fmtempi,i,t£mpci;j); 

SI*F1l; DI«-LUC Tl; b'3*l wOS; CI*Tli 



00001320 
00001330 
00001340 



35(DS*t LIT " "); 0S«-6 
DS*2 DEC;DS*6 LIT"3 » 



Lif^ANs — c"; swcoc ti 
"j J>i*loc aid; t 14-01; 



OQQQUSO 
00001360 
0QO0137O 



DS»1 LIT 



DS*6 DEC; DI*0l-i;05*2'RESET; ai*LUC AU DS«-7 DEC;OI*D I- 1 ;00U0 1 380 

t2*di;di<-t2;si*t*;if sb then begin di*ti;ds«-i lit "-"; 00001390 
di»t2 ekd;ds»2 reset; __ 00001400 



•6 

47 



49 

so 



57<DS«-1 LIT" "); 

C&MMtNT 

end; 



WRITE CFNQK,FMANSI>I,ANStlJ>'RELEASE (FID 



00001410 
OOOO 1420 
00001430 



52 
53 

54 



STREAM PROCEDURE OCTAL 



(FjL# I»Tl»TZ#T3»T4#T5* r6#T7#T8>T9»TlO»m* 00001440 
Tl2#TU»Tl4*Ti5#Ti6#Tl7# AUA2* A3# A4/A5* A6#00UQ1«50 
A7#A8*A9*A10»A11>A12>A13#A14>A15»A16>A17);00Q01460 



VALUE I'Tlt T2»T3'T4#T5'T6*T7»T8#T9*T10'T11»T12#T13#T14»T15' 00001470 

T16#T17»A1#A2#A3^A4,A5,A6#A7/A8#A9*A10*A11#A12#A13#AI«# 000014 80 

AlS»Al6»Al7i ■ QQOQUVO 



53 



r 



W 



1 

2 
3 
4 
5 
6 
/ 
8 
9 
10 
11 
12 
13 
14 
lb 
16 
17 
ilB 
19 
20 
21 
22 
23 
24 
25 

28 
27 
28 
29 



30 
31 
32 
33 
34 
35 
36 



BLGIN 

LOCAL T ; LABEL L1/L2/L3/L4; 

_ si*fil; oi*loc t ; os<-i *ls; 



jlLtl 



35(DS*1 LIT " ")/DS*6 LIT'TEmP r»;si*Loc ij 0S*2 
DS*6 LIT "3 s M ; 5XH.0C TUSK-SI*/* IF SC» W 1' 



00001500 
00001510 

JLC.0G_15_H.Q. 



dec; 

THEN 



DS»1 LIT 



*-";gq 



BEGIN 



to Li end; ds*i lit "+"; 



00001530 
00001540 

ooooisgo 



Ll s SI*LCC T5J DS+1 0EC/5I«-L0C T6;0S«-1 QEC/Sl«-LUC Mi 00001560 

DS*1 DEC'SI«.LQC T8'DS«-1 DEC>Sl«-LOc T9;dS*1 UEC'Sl*LOC T10;00001570 

os»i QEc;si»i.rir. tujosm ntc* Smuc Ti2;r;S + i dexj nnooisflo 



si*loc ti3;ds*i dec;si*loc ti4;ds*i dec;si*lqc tis; 
ds*i oec;si*loc t id; os*i oecjsi*uuc U7;d£>*i dec; 

DS»2 LIT " x";SI*LQC T2;SI»SI+7JlF SCs"l" THEN BEGIN 



00001590 
00001600 
00 00 1610 



DS*1 LIT "-"/GO TU L2 EN0/DS*1 LIT " + "j 00001620 

L2« SI*LGC T3;US<-1 OCC/ J Sl«-LUC T4JDS«-1 DtC;52(US*l LIT" "H 00001630 

RE LEAS E LL XULi 0Q0ui,6iUL 



COMMENT CONTINUE OCTAL* 

si*fil; di*loc t ; ds*i wos; oi*t j 

J 5iMjJ-LII _!! ");PS +6 LU W ANS C";si*LQC 



IJ DS»2 DLCl 



: 



00001650 
00001660 
00001670 



= " ;si*loc ai;si«-si + 7;if sc s "i" then begin oououao 
;go ro L3 end;os*i lit « + »•; ooooi690 



DS*6 LIT 
DS*1 LIT 
.L..H SI4-LQC A5; QS«-1 DEC;S]4. L UC Afi/PS-l Q£C/ST*IQC A7i 



-000017-0-0- 



DS«-1 DEC;SI4-L0C A8iDS*l OEC;Sl*L0C A9;DS*1 DEC;SI*L0C A10;00001710 
DS*1 OEC/SULOC Ali;05*-1 d£c;si*loc Ai2;DS*l oec; 00001720 

Sl<-LOC Al3;pS»l PEC;S1<-lqc Al4;pS*l 0EC;SI»LQC A15; 000017 30 



DS*1 DEc;iI*LOC AI6/D0M PECJSi+LCC A17;0SM DEC; 
DS*2 LIT" x"/3I*LUC Ac i S 1*5 I + 7 ; IF i>c«"l" THEN BEGIN 



OSM LIT 



»t.n 



;go to l^ eno/Ds+i lit " + "; 



L4» Sl*LQC A3;0S*1 QtCiSULQC A4;pS*l DEC;52(DS*1 LIT " 
RELEASE (FIL) 
END; 



000U1740 
00001750 
0O00176Q 



); 00001770 
00001780 
00001700 



HEAD CFn0K#NQK»PPQC1DSCPN0>03»HN0)> , CqhmEIST lot Two LINES PRINTED/ 00001800 

IF NOK THEN GO TO B0T10M/ 00001810 

_FQ_R 1*1 STEP 1 UNTIL CVN Q O , Q0QU lH2a 



IF CVCI3 THEN CVTRUECFNOK/I) ELSE 
BEGIN CVFALSECFNQK,!); 



00001830 
00001840 
00001850 



OCTAL (FNOiWIj. TLMPCn.CHX J*TtrtPCI].C2ilJ# 

TEMP[I],[3i3J/TEHP[ 13 * [ 6 : 3 3 / TEMP [ 1 3 . C 9 : 3 3 / 



00001860 
OOOOlSi'O 
00001680 



37 
38 
39 



♦5 
16 
«7 
«8 



49 
50 



51 
52 
53 
54 



55 
58 



*1 



TEMP[I3,[12:3 3,TEMPCI J . [ 15 S 3 3 / TEMPI I 3 , [ 18 I 3 3 /OOOO 1890 
TEMPtI3.[2l»33/T£MPtlJ.L24l3 3/TEMP[i3.[27»3J/00001900 
TEMPCn»[iOt33#T£Mp[l3 t I33l3 3*TEHPtI3.C36t3J*OOOOl9lO 



TEMP[I3. L 39: 33* TEMP [13. [ 42 * 3 3 / TEMP { 13 , [45*3 3/00001920 
ANS [13 ,[1:13> ANS C I J .L2J13/ANS CI3.[3«3]/ 00001930 
ANS C13»[6:33*ANS C I 3 . C 9 > 3 3 / ANS [13.112*33/ 00001940 



ANSCl3,tl5»3J#ANStl3,tl8»33/ANSEn.t2l«33* 00001950 
ANS U3tC24:33/ANSm. [27*33, AN5U3. [30*33/ 000G196Q 
ANS Cn.[33l33/ANS[I3,[36<33>ANS[13. [39*33/ 00001970 



BOTTOMI 



END; 
INITIALIZE 



ANS C 13. [4?:33/ANSC I 3*[45*33) 



00001980 
00001990 
00002000 



end; 
prqceoure 

BEGIN 



verify; 



integer n; 

LABEL Li; 
FOR 11*1 STEP 



00002010 
OOOQ2020 

0OOQ2 O 30 



1 UNTIL CVN DO 



IF TEMP CI13* ANS CI13 THEN CV CI13MRUE ELSE CVUn*FALSEi 
FOR 11*1 STEP 1 UNTIL CVN DO 
IF CV CI13THEM ELSE BEGIN NQK*F ALSE JGD TD LI ENDJ 



00002040 
00002050 
00002060 



00002070 
00002080 
QQ 0Q 209Q 



• • 



2 
3 
4 
5 
6 
7 



9 

10 

11 

12 

13~ 

14 

:.s 

•16 

, 1 ? 
18 
19 
20 
21 



22 
23 
24 
25 
26 
27 
28 
29 



30 
31 
32 
33 
34 
35 
36 
37 " 



38 
39 
40 
41 
42 
43 



45 
46 
47 
«8 
49 
50 
51 
52 
53 
54 
55 



DS«-48 LIT 



DI«-10C TU DS «- 1 
"3.5.5.1RELATIQNAL 
DT+LQ C T I/ US «• 1 



WDSi UI «• Tli 
OPEHaTQK#> 

JiMi ni t ti; 



DS4-48 LIT "3,5.9, 1RELAT10NAL OPERATOR** 

DI*L8C Tli DS «• 1 WOSi DI «• TU 

DS-48 LIT "3.5.5.2L0GICAL OPERATOR* NOT 

dialog ti; PS ♦• 1 WUSi CI ♦ ti; 

DS4-48 LIT "3.5.5.2L0GICAL UPERA1UR, AND 

nin,nc ti> us t 1 wna* — ri «■ t , ; 



'•; 



w i 



DS«-48 LIT "3.5.5.2L0GICAL OPERATOR, OR 

DI*LOC TI* DS «. 1 WDSi 01 «- Tli 
DS»48 LIT "3,5.3.?LQG1CAL OPERATOR, IMP 

oi*loc ti* us *■ i wos; oi «• ti; 

DS*48.LIT "3.5.5.2L0GICAL OPERATOR, EGV 

DI«-LDC TI i OS *■ 1 WDSi CI » TU 



"05*48 LIT -3.6.3.1SIMPLE DES IGNAT IONAL EXPRESSION 
DI+LOC Tli US «■ 1 H'OSi DI «■ HI 

D S «• 4 8 LI T "3.6,3,2GENeRaL PES IGNAT IONaL EXPRESSION 
DI«-LOC TI* US ♦ 1 WOSi CI ♦ Til 

DS*48 LIT "3.6,4 SUBSCRIPT EXP Qp SWlTch DESIGNATOR 

DIHQC Tli 03 » 1 hP^i DI i Hi 



H ; 



DS4-48 LIT "4,1 CUMPOUNO STATEMENT 

DI*-LOC Tli US 4- 1 WDSi DI ♦ Tli 
_0 $±A& -LIT "4,1 BLOCK & 5.0.2 DECLARATION 



DS*48 LIT 



DI*LOC 

"4.2 

JLU-UOC 



Tli DS «- 1 
ASSIGNMENT 

JLLi iIS_J^_L 



WDSI CI «■ Tli 

STATEMENT 

HUi>; _DJ » Hi. 



DS4-48 LIT "4.3 

DI*L0C 
nS»48 LIT "4.4 



GO TU -STATEMENT 

Tli OS * 1 wos* 

DUMMY STATEMENT 



DI 



Tli 



DS«-48 LIT 



DI'LOC Tli 
"4.5. 3.1 IF 
DI+L QC Tl i 



DS * 1 WDSi 
STATEMENT 
DS *• 1 WDSi 



DI 



ILL 



* Tli 
_^_IJl1 



0S«-48 LIT "4.5.3.2IF 

DI*LOC Tli 

05*48 LIT "4.5.3,3IF ■ 



- ELSE STATEMENT 
DS 4- 1 WDSi DI 
FUR STATEMENT 



Tli 



DS*48 LIT 



DI«-LOC TU 
"4. 6. 4, IFOR 
DI»LOC Tli 



US «• i WDSi L) i «- T 1 i 

ARITH EXP ELEMENT 

US «■ 1 UPS/ DI <- Tl> 



DS*48 LIT "4.6,4,2FQR STEP-UNTlL ELEMENT 

DI*L0C Tli DS * 1 WDSi DI * TI* 
0S*48 LIT "4.6.4.3FUR WHILE ELEMENT 



DS«-48 LIT 



DI+-LOC Tli 
"4.6.4.4F0R 

DI AL OG Tl i 



S «■ 1 W D S i D I *■ T 1 i 
STEP-WHILE ELEMENT 
DS «- 1 WDSi DI t Tli 



DSM8 LIT "4.6,5 FOR CONTROLLED VARIABLE 

DIALOG Tli OS * i WOSi Dl '■■■> Tli 
DS»48 LIT "4.6.6 GO TO INTO FOR 



DI*LQC Tli DS » 1 WDSi DI «■ Tli 
DS4-46 LIT "4.7, 3.1CALI. BY VALUE 

ni«-LQC Tli US * 1 WPS/ pi «■ Tli 

DS*48 LIT "4.7.I.2CALL BY NA*E 

DI*LOC Tli OS 4- 1 WDSi 01 4- Tli 

0S4.48 LIT "4.8.2.3REAP STATEMENT 

DIALOG Tli DS 4- 1 WDSi DI «■ Tli 
DS4-48 LIT "4#8,8,3WRITE STATEMENT 
DI»LDC Tli US » 1 WDS> UI 4- Tli 



0'S*48 LIT "4,8.4,3RELEASE STATEMENT 

DI*LQC TW DS 4- J WQSi DI 
0S»48 LIT "4.9.3 FILL STATEMENT 



* Tli 



"i 



JLL 



"i 






00002700 
00002710 
Q000272Q 
00002730 
00002740 
00002750 



00002760 
00002770 

00002780-. 



00002790 
00002800 
000 0281 



00002820 
GQ00283Q 
0000 28 40 



00002850 
00002860 
00002870 



00002880 
00002890 
onU Q^goo 



00002910 
00002920 
onoogoao 



0C00294C 
00002950 
00002960 



O0QO2970 
00002980 
0Q002990 



00003000 
00003010 
Q00Q3Q2Q 



00003030 
00003040 
00003050 



00003060 
00003070 
00003080 



00003090 
00003100 
00003110 



00003120 

00003130 

_0£OQ_3JL4Q_ 



00003150 
00003160 
0003 17-0- 



00003180 
00003190 
QQOO3 200 



00003210 
00003220 
00003230 



00003240 
00003250 
00003360 



00003270 
00003280 
00003290 



• « 



n 

2 
3 



DIALOG Ti; DS «- 1 WDS; 01 - TU 
DS«-48 LIT M 5.0,2 DLLCLARATIQNS 

D IAL OG Ljj DS «- \ _j__J __L__._X_.i_ 



M ; 



DS*48 LIT "5.1 TYPE DECLARATION 

oi*loc ti; os «■ i wos; 01 * ti; 

0S»«8 L I T "5*2.3. 1SAVE ARRAY 



00003300 

000C3310 

iUQ003i2jQ. 



____ 



00O0333Q 

00003340 

-0.00C3.25_0 



DS«-48 LIT 



DI«-LQC Ti; 
M 5.2,3,20WN 
DI+LOC ti; 



D3 «■ I 
ARRAY 
DS «• 1 



WOS. 



Dl 



WL)3J PI 



Tl 



ti; 



00003360 
00003370 
00003380 



10 

11 

12 
13 
14 
15 
16 
17 
18 
19 
20 
21 



DS*48 LIT 
____»___ LIT, 



"5.2.3.3TYPE ARRAY 
DI«-LQC Ti* OS «• 1 
"5.2.4 BOUND PAIR 



WDS* 
LIST 



"* 



DI 



Tl) 



OI + LOC Tli OS «• 1 WOS* 01 «■ Tl 
0S*48 LIT "5.3.3 SWITCH OECLaHATiqk 

DI»LOC Tl* OS «• 1 WD-* 01 <■ Tl 



00003390 

00003400 

J____J_3__1_L 



DS*48 LIT "5,3.4 SWITCH LIST EXPRESSION 

di*loc ti; os «• i wos* 01 * tu 

_0S*48 LI T w 5»3.5 SWITCH SCOPE 



"* 



DI*LCC TU DS ♦• 1 WDS* 01 * Ti; 
DS«-48 LIT "5.4 DEFINE DECLARATION 

DI+LOC Tl* US «■ 1 WDS* 01 » T 1 * 



DS*48 LIT "5.5 LABEL DECLARATION 

DIALOG Tl* OS «■ 1 WOS* DI 
D S» 48 LIT "5.6.3. 1FILE BUFFEl PART 



♦ Tl* 



"* 



00003420 
00003430 

JIQM___4_CL.. 
00003450 
00003460 
0000 3470 
00003480 
00003490 
0003500 
00003510 
00003520 
00003530 



22 
23 
24 
26 
26 
27 
28 
29 



DS*48 LIT 



D1*-L0C Tl* DS «■ 
"5.6.3.2FILE 1-0 
DI + I.OC Tl* ______ 



i wos; oi «■ ti; 

LNIT CONTHUL 

1 WDS* Dl _ Tl> 



DS«-48 LIT 
-Q.Sj_4_L-__J_T_ "5.6.3.4FIL_ SLflCKINft 



"5.6.3.3FILE DISPOSITION 
DI*LOC Tl* OS «• I WDS* 



00003540 
00003550 
_____L__-5__Q 



01 



Tl. 



00003570 

00003580 
nn003*g_ 



31 



34 
35 



36 

37 ~ 
38 



di«-loc ti; os ♦• 1 wos; oi «• ti; 

DS«-«8 LIT "5.6.3.5FRE. END'CF-FILe 
DI-LQC Tl* US «• l W .DS* 1 _ 7 1; 



DS<-48 LIT "5.6.3.6FILE SAVE FACTOR 

DI*L0C Tl* OS *■ 1 WDS; Dl 
DS -48 LIT "5.6.3.7F1LE REVERSE 



00003600 

00003610 

_- Q0036 2C. 



* Ti; 



00003630 
00003640 
00003650 



US«-^8 LIT 



DS*48 LIT 



DS + 48 LIT 



DIALOG TU DS 

'5«7.3.1FCRMAT A 

D1<-L0C Ti; OS 



"5.7.3.1FCRMAT D 

DULOC Tl* OS 

___ _____ j______ __ _ Al E 



* 1 WDS/ 
PHRASE IN 
«- 1 WDS/ 



DI 



DI 



Tl 



Tl 



PHRASE IN 
«- 1 WDS* 
PHRASE IN 



DI * Tl 



00003660 
00003670 
00003680 



00003690 
00003700 
00003710 



40 
41 
42 



43 
44 
45 



46 

47 



0S«-48 LIT 



DIALOG Tl* DS 

"5.7.3.1FCRMAT F 

DIALOG Tl* OS 



«• 1 wos; 

PHRASE IN 

«- 1 wu_* 



DI 
01 



Tl 
Tl 



"* 



00003720 
0C00373C 
00003740 



DS*48 LIT "5.7 f 3»lF_RMAT t PHRASE IN 

DI*LQC Tl* OS «• 1 WOS* 
DS»48 LIT W 5.7.3,1F0RMAT L PHRASE IN 



Dl «• Tl 



"J 

"* 



00003750 
00003760 
00003770 



0S*48 LIT 



DI*LOC Tl* DS 
"5.7.3.1FCRMAT U 
DI+LOC Tl* DS 



OS*48 LIT M 5.7.3,iF0RMAT * 

OI>LOC Tl* DS 

0S»46.LIT "5.7.3.3FQRMAT A 



«• 1 WDS* 
PHRASE IN 

*■ 1 wos; 



DI 



DI 



Tl 



Tl 



00003780 

00003790 
00003800 



49 
so 



52 
53 

54 



55 
56 



DS+48 LIT 



DI*L0C Tl* DS 
"5.7,3.3F0RMAT D 
DI*LOC Tl* DS 



PHRASE IN 
♦ I WPS* DI 
PHS*5£ PUT 



Ti* 



♦ 1 WDa* DI * Tl* 
PHRASE OUT 

* 1 wos; DI «■' Tl* 



0000 3810 
00003620 
00003830 



DS«-48 LIT 
0S»48 LIT 



"5.7t3.3FQRMAT £ 

DI*LOC TU OS 

w 5t7»3»3F0RMAT f 



phrase out 

♦ 1 WOS* DI 
PHRASE OUT 



TU 



"* 



00003840 
00003850 
00003860 
00003870 
00003860 
0000369P 



N 

2 
3 
4 
5 
6 



10 

11 

12 

13 

14 

IS 

,16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 ~ 

38 

39 

40 

41 

42 

43 

44 

46 



DS«-4B LIT 



DI 
"5.7 

DI 



*L0C 

,3,3F 

»L0C 



Tl* DS ♦• 1 WOai DI «• Ti; 
CRMAT I PhKASE UUT 

ti* ds *• i wds* 01' <■ Tl> 



DS«-48 LIT 
DS*48 LIT 



"5.7 

DI 

"5.7 



.3.3FDRMAT L PHR 
♦ LOG Ti; DS «• I 
.3.3FCRMAT PHR 



ASE OUT 

WDSI DI ♦ TI J 
ASE UUT 



M i 



DI*LOC TI* DS «• 1 

0S«-48 LIT "5.7.3.3FCRMAT X PHR 

Dl«-LOC TI* DS <■ 1 



WDSI CI «■ Tl* 
ASE UUT 
WDS* DI «■ Tl* 



0S«-48 LIT "3,8.3 LIST DECLA 

DIALOG Til DS «■ 1 

D S + 48 LIT "5.9,3 FORWARD REFE 



RATION 

WDSI DI .«■ Tl' 
RENCE DECLARATION 



DS«-ft8 L 

OS* a 8 L 

..QS.f4.8_L. 

DS«-48 L 



"5.1,0.5DUMP 
DIALOG Til OS «- I 
. w 5fU »3.1gR 6C ED U RE 



OI*L0C Tl i DS «- 1 
IT "5.1,0,4MONlTOR v 

DI-LOC II* US <- 1 
IT 

IT. 
n 
if 
u. 



wOSI 01 «■ Ti 
WO Si DI + T l 



wosi 01 *■ Tl 

DECLARATION ( hl-AnlNli) 



DI*-L0C Tl* DS *■ 1 WDSI 01 *- Tl 
"5.12.3.1STREAM VALUE PART 
-DT-ino T1 J IISl *■ 1 HU_i 01 <•_ 1-1 



"5.12.3.2STREAM DECLARATION 
DI*LOC Til OS ♦• 1 WDSI 01 «• Tl 
J!5 > 1B-.5.3SE T A DDRESS STATEMENT 



DS«-48 LIT 



DI 
"5 
DI 



♦LQC 
.12,5 

+ L0C 



ti; 

.4ST0 
Tl* 



DS «■ 1 
RE ADD 
OS * 1 



WDS* 
tfESS 

wos; 



DI «- Tl 
STATEMENT 

01 » Tl 



0S*48 L 
QS + 48 L 



IT "5.12,5,5RECALL ADDRESS STATEMENT 

DI*LOC Til DS «- 1 WDSI DI «• Til 
IT W 5.12.5.6SKIP ADDRESS STATEMENT 



DS*48 LIT 



DI 

"5 

.01 



DS*48 L 
0S + 48 L 



IT "5 

DI 
IT "5 



♦LOC 
.12,6 

»L QC 



Til 

.3TRA 

II* 



DS *■ 1 
NSFER 
OS «- 1 



WDS* 

WQHQ5 

WDSI 



CI «■ Tl 



DI * Tl 



.12.6 

*LOC 

±A1±1 



.4TRA 

Til 

.5INP 



NSFER 
OS «- 1 
UT CON 



CHAHA 
WOSI 
VERT 



CTERS 

01 «- Tl 



DS+48 LIT 



DI 
"5 

J9JL 



*LOC 

.12.6 

- LOC 



Tl* 

.6UUT 

Til 



OS «- i 

put cu 
ds <- 1 



WDSJ 

NVEKT 

WDSI 



DI <• Tl 
PI «• Tl 



DS«-48 L 
DS»48 L 



IT "5 

DI 

IT "5 



.12,6 

<-LOC 
.12.6 



.7TRA 

Til 

.BTRA 



NSFER 
OS «■ 1 
NSFER 



ANO A 

WOoi 

CHARA 



DO 

DI * Tl 
CTER PORT 



QNS 



00003900 
00003910 
QQ00 3920 



00003930 
00003940 
00003950 



00003960 
O00C3970 
00003980 



00003990 
00004000 

0000401 C 



00004020 
0Q0C4030 

.M004MQ. 
00004050 
00004060 

_Q_GOj___L 



00004080 

00004090 

jOOilUiLVflJQ- 



00004110 
00004120 
00004130- 



00004140 
00004150 
J10jiOj___L 
00004170 
00004180 
0000 4190 



00004200 
00004210 
0000422 



00004230 
00004240 
00004250 



00004260 
00004270 
00004280 



00004290 
00004300 
00004310 



46 
47 
48 



49 

50 
51 
52 
53 
54 
55 



DS*48 LIT 



DI*-LOC 
"5.1 *, 
O I+LOC 



Til 5 «• 1 WD S* DI «- Tl 
6.9LITERAL CHARACTERS 
Til OS «■ 1 WDSI DI - Tl 



00004320 

00004330 

■ 0004 3 40 - 



0S*48 L 
0S»48 L 



IT 
IT 



"s.ia. 

DI*LOC 

w 5 t j,a f 



6.10LITERAL BITS 

Til DS * I WOS* 
7 STREAM GO TO S 



DI * Tl 
TATEMENT 



"I 
"I 



00004350 

00004360 

-00004 3.70 



DI*LOC Tl* OS «- 1 WDSI DI * Tl 
05*48 LIT "5,12,8 SKiP BIT STATEMENT 
DI + LOC TH DS «• 1 WOS* DI «■ 11 



"; 



00004380 
00004390 
00004400 



DS*48 L 
DS*48 L 



it "s.ia. 

OI*LOC 
IT "5._?_. 



9 STREAM TALLY S 
Til DS «■ 1 WOSI 

10 STREAM NEST ST 



TATEMENT 

DI * Tl 
ATEMENT 



"I 
"I 



00004410 
00004420 
00004430 



0I*L0C Til DS «■ 1 WDS; Ui «- Tl 
DS*48 LIT "5.12. 10.3JUMP OUT STATEMENT 
DIALOG TH US <- i WDSI pi <■ Tl 



00004440 
00004^50 
00004460 



0S»48 L 
0S»46 L 



IT "5«12. 

DI*LOC 

IT w 5>lf t 



11 STREAM RELEASE 
TH DS 4. 1 WOSI 

12 COMPOUND STREA 



STATEMENT 
01 * Tl. 
M STATEMENT 



"I 
"I 



00004470 
00004480 
00004490 



• • 









r 

dialog ti; OS «- 1 wos; oi «- ti; 

DS«-48 LIT "5. 12. 13.4S0URCE wlTH LITERAL 
I nj*i nq ti i ns «• 1 hqsj ni ♦■ ti ; 


"; 


00004500 
00004510 
00004520 J 


DS*«8 LIT "5.1S.13.5S0URCE WITH DESTINATION 

oin.dc ti; os * i was; di ♦ ti; 

3 nS«-48 LIT "5.12.l3.6Snu«CF BIT 


"; 

"; 


0000*530 r 
00004540 2 
00004550 3 


4 di*loc ti; QS «■ 1 WDS; di «- n; 

DS*48 LIT "5.12.13.7TQGGLE 

6 di*loc ti; ds «• i wos; DI < ri; 


n ; 


00004560 4 
00004570 5 
00004580 * 


DS*48 LIT "5.18,13,8SqURCE FOR ALPHA 

8 di«-loc m os ♦ i wds; 01 «• ti; 

DS*48 LIT "4,6.4 FOR LIST ELEMENTS 


"; 
"; 


00004590 ' 
0000*600 o 
00004610 9 


,o di*-loc ti; ds «- i wos; di * ti> 

" DS«-48 LIT "3.5,6 PRECEDENCE Of LOGICAL CURATORS 

12 dialog tj; ds ♦• i wds; ui 4- ti; 




00004620 " 
00004630 » 
00004640 " 


13 DS*48 LIT "4,3 GO T0 STATEMENT (PROCEDURES) 

14 di«-loc ti; os <• i wos; oi «■ ti; 

15 DS*4B LIT "4.3 GO TO STATEMENT (SWITCHES} 


"; 
"j 


00004650 ' 3 
00004660 u 
00004A70 « 


16 di«-loc ti; ds «■ i wds* di «■ ti; 

17 DS*48 LIT "5«ll«3.2PR0CEDURf BODY VARIATIONS 
,8 nj*i nq tij ps «■ 1 wnb; pi 4- ti,j 


"; 


00004680 1S 
00004690 17 
00004700 18 


19 0S**8 LIT "5.11,3,2RECURSIVE PROCEDURES 

20 DI*LOC Tli OS ♦■ 1 WDS; 01 * Ti; 

21 nS*48 LIT "5.11.4 TYPEn PRtlCFDuRF 


"; 


00004710 ,9 
00004720 20 
00004730 " 


22 DI*LOC TU US <• I WDS; 01 «■ Tl* 

23 DS*48 LIT "5.11 A WEB OF PROCEDURE CALLS 

24 . m*iflc Ti* ns * i wQu; ni *■ ti;, 


••; 


00004740 22 
00004750 23 
00004760 24 


26 DS«-48 LIT »5.18,3,1STrEAM CALL BY ADDRESS 

26 DI*LOC Ti; OS * 1 WDS J DI * Tli 

27 nS4.4fi | TT "*.7 FnBM'AT DfCj ARATTflNS 


"; 


00004770 26 

00004780 26 
000Qfl70n 27 


28 di*loc ti ; ds ♦ i wos; ui «■ ti; 

29 ds*48 lit "5,12,12 comppund stream statement 
» end; 




00004800 28 
00004610 29 
00004820 30 


31 OCTFILL(PROCIDS); 

32 WRITE (FNQK ;; comment to establish single 

33 CVN*o; PNOfrO; VERIFY 


spacing; 


00004830 31 
00004840 32 
00004850 33 


» end; 

36 BEGIN 
» PROCEDURE Pi; 




00004860 34 
00004870 35 
00010000 36 


37 COMMENT 2.4,4 LEGITIMATE USE OF COMMENT; 

38 BEGIN 

39 BEGIN TEMP Cl3Mj BEGIN TEMP[23*2; TEmPI3J*3 END; 




00010010 " 
00010020 3 * 
00010030 39 


40 begin end 

41 end; 

42 BEGIN 




00010040 «° 
00010050 "1 
00010060 « 


43 COMMENT TEMP C1W7/ 

44 TEMP t*3**; 

« . COMMENT BEGIN TEMP [23*77; 




00010070 43 
00010080 44 
00010090 4 5 


« BEGIN 

47 TEMP [5]*SI 

48 COMMENT C».x:+C )[ ]"GC Tu L END WHILE ELSE 


00010100 46 
OOOIOUO 47 
00010120 48 


49 UNTIL * ARRAY J 

50 TEMP {63*6 
61 ENOT .' 




00010130 49 
00010140 50 

00010150 5, 


« BEGIN 

53 COMMENT; 

54 END 




00010160 52 
00010170 53 
00010180 54 


«. end; 

»...'■ CVN4-6* PNOMJ FILL ANSt*J WITH OCTl# GCT2» 0Ct3# OCT** 

vi£>t ...;.. Oct* i 


0CT5# 


00010190 5 5 
00010200 56 
00010210 57J 



h 



VERIFY 

end; 
procedure p?; 



CQMMEM 2*,^ LF . Snt MAT E IJ2LNII£l£Jlli 



00010220 
00010^30 
QQ0 200 0Q 



2 
3 

4 

5 

6 

7 

8 

9 
10 
11 
12 
13 
14 



16 

^7 

|l8 

19 " 

20 

21 

22 

23 

24 

26 

26 

27 

28 

29 

30 

31 

32 

33 



34 

35 

36 

37 ~ 

38 

39 

40 

41 

42 

43 ~ 

«4 

45 

46 

47 

48 



49 
50 
61 



52 
53 
54 

56 



56 

P7 



BEGIN 

LABEL EXIT* GOOTOOEXIT; 
BOOLEAN B1»NQTTjT,Y, TANDY, B2; 



00020010 
00020020 
00020030 



INTEGER IMl'FCROli, IOSTEPO luNTlLO 1 DO* 00020040 

ABCDEFGHlJKLMNCPGKSTUVWXYZ0l2 34567b9AiB2C304E5F6Gi'HBl9Jl0KiiLi2> 000 20050 
ABCDEFGHUKLMNCPQHSTUVWXYZ0l2345ft78sUlB2C3U4E5F6fi/HBlV^l0K llLl J 00020060 



GOOTOOEXITI 

NOTT«-TRUE; T*TRLEi FQ«0I 1*4; Y*ThUE M*3 ; 1 1«-1 JT ANDY«-F AlSe; 

IOSTEPOIUN TTI , O l DO^ — 



00020070 
00020080 
0Q020090 



bi«-nott;b2*tandy; 00020100 

ABCDEFGHIjKLMNOPfiRSTUVWXYZ0123«t>6789Mlb£C30 4tbFeG7heI9JlOKULl2«-6* 000 20 110 
-AB£0EFGHIJKLM N 0PCRS TUVWXYZ0l234b67BgA1 H2r.3 n4fc,!>F6 d7 h 8l 9J l pKn Ll»2U- QS1MSH2SL 



F0R0Il*l0STEP01UNTlL01D0i 
EXIT: IF 81 THEN T£MP L\l+1} 
I F NQTT THE N TEMP [? 3»2 jL 



00020130 
00020140 
Qn02Qt sn 



lf_ 



IF T THEN TEMP t33*3* If Y THEN TEMP L4]*4i 00020160 

IF TANDY THEN ELSE TEMPtb]«-b; IF B2 THEN ELSE TEMPC6]*6; OQ020170 

ABCDEFQHlJKLMN0PQRSTUVWXYZUi^3456 7fl9AlB>'L3D4ttbF6r 1 7hflT9JiOKl \L\p * fe OOO2O1RO 



THEN TEMP C73*7; 00020190 
IF ABCDEFGHIjKLMNGPQRSTUVWXYZ0 i 234b6789A 1 B2C3D4EbF667H8l9Ji0KnLl ■ 7 OOO2O2OO 
T HEN TEMP tfllftfl: V nno?02in 



IF 1 = 3 THEN TEMP CvJ«-9/ IF H=l THEN TEMP tlOJMo; 

IF F0R0Il = 5 THEN TEMP C 1 1 J ♦ 1 1 ; 

IF IOSTEPQlUNTlLOlDO »3 THEN TEMP [ 12J*12; 



00020220 
00020230 
-QQQ2^2_4_0 



FILL ANS C*3 WITH Q C"!" l»0CT2#0cT3,QCT4 >0cT5> 0f,T6,0cT7#QcT 10,0cT 1 1* 00020250 

0CT12#QCT13'*0CT14; 00020260 

CVN4-12J PHQ + 2 J : 00020P7 



VERIFY 

end; 
procedure p3; comment 



THE USE Of NUMERS LXCLULi lHG SIZE , |, j fHT aT I On S , 



BEGIN 



EXTENDED ALGOL MANUAL SEC 2.6. KM, JULY 26 1963; 
COMMENT UNSIGNED NUMBERS* 



00020280 
00020290 
0003000 



TEMPC1]*9; 

TEMP[2]*99; 

TEMP[3]<-.5; 



00030010 
00030020 



TEMP[4]*9,5; 

TEMPt5]*?g; 

TEMPt6)»P+3; 



00030040 
00030050 
00030060 



00030070 
00030080 
00030090 



TEMP[7]<-P-3; 
TEMPC8]*2*»2; 
TEMP[9]«-29"2; 



TEMPC10H49 + 2; 
TEMPtll]*4,5?-2; 
T£MP[lg3»4.5J> + 2; 



00030100 
00030H0 
00030120 



COMMENT SIGNED 

TEMP[13]*-9; 

TEMP[143»-99; 



00030130 
00030140 
00030150 



numbers; 



TEMPU53*-.5; 
TEMPtl63**,5; 



00030160 

00030170 
00030180 



TEMPC18K + 9.5; 

TEMPtl9]*-*2; 

TEMPr2Q]»-g+3J 



00030190 
00030200 
00030210 



TEMPt2l3*-Pi; 

TEWPC223*«2?2; 

T£HPt2lU*2*-3i 



00030220 
00030230 
QQ03Q240 



00030250 
00030260 
Q03 Q27Q 



57/ 



• t 



10 

11 

12 
13 



IS 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 



28 
29 

30 
31™ 



32 

J3 

34 
35 



36 

37" 

38 

39 






41 

42 

43* 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 



55 
56 



TEMP[243**4?-2; 
TEMPC25U + 4.5P-2; 
TEMPr26]»-g.'-» + ?f 



COMMENT EFFECT OF ZERO 

TEMP[27J«-%C; 

TEMPr2fi]«-"90: 



ON SELECTED VALUES; 



TEMPt293*--g.5?-0; 
TEMP[30U + 2.5?-0; 

TEMPr3i3<--oe+io; 



TEMP[323*-0«> + Oi 

TEMP[333**,0P-0; 

TEMPr3«3»».5»+0; 



TEMP[35]*<<?-C; 

TEMP[36U09 + /i; 

_TFMP[373»OP?i 



OCT 30 10000000000 U4* OCT 10 10000000000114, 
OCT 3000000000000 144* OCT 300000000000 1750* 
OCT 3 131200000000000* OCT 3 123 lOOOOOOOOQQO, 



CCT31612172/0 24 3656, OCT 1 16 24 36560 5075 34, 

OCT 1 16 270 24 365605 10, GCT 3 12 37 20000000000, 

rCTlOOQOOOQOOOOOO OO, OCT 3 14 1000000000000, 

OCT 3142400000000000* OcT 1 142400000000000* 

0CT10OQO00000O0OO0O, OCT 1000000000000000, 

OCTIOOOOOOOOOOOOOOQ, OcT 3 154000000000000, 



CVN 

PNO 



37; 
3; 



OCT1144000000000000, 0, 0, 



VERIFY 



end; 



PROCEDURE Pa; COMMENT 2.7 STrtlNGoJ 



BEGIN 



TEMP[1 ]«•"««; 
TEMPC2]«- W "; 



TEMP[33* M A0CDEF M ; 
TEMP[4]* M A C E "t 
TEMPf53»"A»J»I$'«; 



TEMP[63«-"C>-<89"; 

TEMP[7]*"SQRT Y"; 
FILL AN'S [*] WITH 



0CT77, 0CT60, QC T2 12223242526* 



DCT216023602560, 0CT21734 J37 3 l52* 0CT33 165436 jO 1 \» 
0CT625051636070; 
CVN»7J PN0*4;V£RIFY . 



end; 



PROCEDURE P5K0MMJNT 3,1 VARUBLEa; 
BEGIN 



COMMENT SIMPLE VARIABLES ; 
INTEGER ALGOL* BAGOL, SVE * ACU 
COMMENT SUBSCRIPTED VARIABLES; 



ARRAY SUBSCC0»5], TWot 0* 1, U » 1 ], T QW C I 1* 01 1 ], V ARCO I 5 V, 

algol*i23; bagul*algol; *>VE«- "ASSBLY"; AC* "save*; 

FOR I «■ StEP 1 UNTIL 5 DO 



BEGIN SUBSCCn ♦ I END; 
FOR I * t STEP 1 UNTIL 5 DO VARU3 

I » 6J ._ 



♦ SUBSCU3; 



00030280 
000 30290 
..OjQLOJiiaOO- 
00030310 
00030320 
000 30 3 30 



00030340 
00030350 
00030360 



00030370 

00030380 

.iflOLifllSJL 



00030400 
00030410 
-OOP 30 4.20- 



FILL ANS'C*] WITH 9* 99* OCT101000000000Q004, 00030430 

OCTtOiOOOOOOOOOOllft, 100* 1000, 00030440 

nCT1?Q4Q6lll5645707, gno. HCT H 61 21 7P7n24365ft . nnfl3fiflSn 

400, JcTll62702436b605iO, ^50, OOO3O46Q 

CCT20000000000U0011, 0CT2O00O0OO0O0O0143, 00030470 

CCr3010Q00000000004, r)CTl01000000000Q00 4, 00030480 



00030490 

00030500 

. 0Q0 30 JLLO 



OOO3O52O 
00030530 

00030510- 
00030550 
00030560 
00030570 



00030580 
00030590 
00030600 



00030610 
00030620 
00040000 



00040010 
00040020 
00040030 



00040040 
00040050 
00040060 



00040070 
00040080 
00040090 
00040i00 
00040110 
00040120 



00040130 
00050000 
00050010 



00050020 
00050030 
00050040 
00050050 
00050060 
00050070 



00050080 
00050090 
00050100 



55 

56 ' 

57 



m • 



N 

2 
3 



8 
9 
10 

11 



,16 
17 
18 



20 



24 
25 
26 



28 
29 



32 

33 



34 
35 



36 

37 " 
38 



40 
41 
»2 



44 
45 
46 



49 

50 



53 
54 



55 
56 



vahci-6] «- algul; rwaci#n ♦ 22o;toh[i*ij «• Twnci-i*i-5j; 

TEMPtl] *■ ALGOL; TEMP[2J * QAGQL* TEMPL3J «• SVE 
T_Mp r 43 * AC; 1LM±12 *■ VAHt 13 > TEM PC 63 t VA R[?3l 



TEMP[93 *■ VARC53; 



TEMP[7J * VAHC33; TEMPCBJ «■ VAR[43* 

TEMPtlOl ♦ VARC03; TEMPC113 <■ T0HC1MJJ 

FILL ANS [»] WITH Q_C___1_7___ J_C_I__-L3_ DC T2l626g224370,0CT6?g1 6525* 



00050110 
00050120 
00 50 1 3-0- 



PN0«-5; CVNMl' 



OCU* 
VERIFY 



0CT2* QCTj* UCT'** UCT5/ OCT 17 3> OCT 334 ; 



oooiouo 

000S0150 
00Q5016Q 



e n d; 



PROCEDURE P6; COMMENT 3,2 PARTIAL WORD DESIGNATORS; 

BEGIN 
INTEGER I»VAR; 



00050170 
00050180 
-0X10 3019 0- 



ARRAY VARA¥[1I2»H53J 

COMMENT VARIABLES; 

I ♦ 79 _ 



00060000 
00060010 
0006002 



VAR «. 549755813887; 
TEMP[13*-VAR.ll»473; 
VAR » 134J 



00000030 

00060040 

.PjlpJ_____. 



TEMP[23* VAR, [40:83; 
TEMP.33* VAR, [40:63; 
VARAYMM3* 1962; 



00060060 

00060070 

.M06_0_0JL0_ 



TEMP[43«- VARAYC1, 13, [45*23; 
VARAYC1»13.C43H3 * 2i 

TEMPC53 » VARAY rl>13; 



00060090 

00060100 

. 00060UQ . 



00060120 
00060130 
00060140 



VAR 4-113; 
TEMP[63 «■ 
VA]i_A3JL6i_ 



IVAR + 7),[39:63> 



TEMP[73 «• VAR,t43<23 + I,C3»I9]J 

FILL ANS[*3 WITH OCTOOO 11111111117 11, QCT206* 0CT041* 
. 0CT3652* QCT17* 0CT122; 



00060150 

00060160 

,0006,0170 



0CTl# 



CVN«-7; 

end; 
procedure p7; 



PN0«-6; VERIFY 

COMMENT 3.3 FuiMpTlOiN DESIGNATORS; 



00060180 
00060190 
Q0 Q 6 Q 2QQ. 



00060210 
00060220 
00070000 



BEGIN 



INTEGER I*J*L»K; 
ARRAY AUU3; 



00070010 
00070020 
00070030 



INTEGER PROCEDURE NOFORMALP ARAMETERS; 

NOFORMALPARAMETERS*i; 

REAL PROCEDURE ARlTH ( VAR 1 , VAR2* V AR3 )/ 



00070040 
00070050 
00070060 



VALUE VAR1*VAR2*VAR3; 
INTEGER VAR1#VAK2»VAR3; 



BEGIN 



00070070 
00070080 
00070090 



TEMPC23*- 
TEMPC43* 
TE MP [ 33«- 



vari; 

VAR3* 
VAR2; 



REA L 



ar.th ♦ var1 + vah2 ♦ var3 ♦ t em.p c 1 3 ' 
end; 

PROCEDURE kSAHAU 



00070100 
00O70H0 
0007012.0 



REAL A 
BEGIN 
A 



00070130 
000 70 t 40 
000 70 150 



*-6i ARAY «• 4; 



end; 

BOOLEAN PROCEDURE BOOU,B)J 
VALUE 8; BOOLEAN B } 



00070160 
00070170 
000/Q 16Q 



BEGIN 

end; 



00070190 
00070200 

00070210 



BOCL 



REAL PROCEDURE STRNGC 0NE»TW0 )J 

VALUE ONE#TWOIREAL ONE'TWGJ 
B Eft IN 



00070220 
00070230 
00070240 



00070250 
000 70260 
00070 27 



• • 



^r 



6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 ~ 

32 



33 

34 

35 

36 

37 ~ 

38 

39 

40 

41 

42 

43 ~ 



45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 



-I»l J 



STRNG 
END ; 

J-15*. 



*■ ONE + T*io; 



K*i4; l*3; 



TEMPCU «■ -H0FORMALPARAMETE.HS; 
TEMPC5] «■ ARITH(I-*J#J x L#L + 
TEMPT6] «■ ARAY( TEMPC7J); 



56); TEMPC7] *■ ti 



TEMP[83 *■ REAL (TEMPC3J=3); 

TEMP[9] «• STRNG(K)"STRING"(J); 

FILL ANS[+3 WITH QCT1* QCT20> 0CT55* UCT73, Q_CTl7_lj 



OCT* 



_£NOJ_ 



0CT6# 
CVN* 9; PNQ «-7;VERIFY 



OCTO* QCT35J 



PROCEDURE P9; COMMENT TRANSFER FUNCTIONS 3.3,5 
BEGIN 

REAL X,Y,Z#C; 



• XMf JUNE 10 63; 



forward; 



REAL PROCEDURE CHECKTRANSFtRC XX* YY); 

REAL XX* yy; 
BEGIN 



checktransfer*xx uiv yy; 

end; 

BOOLEAN PROCEDURE CHECKREAK FjG)J 



BOOLEAN F# Gj 
BEGIN 
ChFCKREAl, 



<• F ANU G ; 



end; 
real procedure wh ichwasfqrwardc q»r ); 

REAL S«R; 



BEGIN 

end; 



WHICHWASFORrtAf^D * Q + M 



TEMP[13*5; TEWP[23«-6; 
X*3.i; Y*2; h*7* z*»3 f 3; a*true; 
COMMENT CHECKOUT OF ENTlEH 



3 * false; 
TRANSFE R function; 



TEMP[3]* ENTIER (X MOO Y}J 

TEMPU3«-ENTIFRI CHECKTRANSFtRC x> Y ) + h.UeilJ); 

TE MP c51«-ENTlFR(-2. 99999999V); 



TEMP[63«-ENTIER(X); 

TEMPcn«.ENTl£S(-Z); 
TEH Pt8]»ENTlFR(lF A THEN ChECKTRANSFERC 5 . 7 , »2 . 1 ) ELSE 



TEMP[93*ENTIERC IF A ThEN REAL(A) ELSE HEAlCB)); 
TEHP[103«-ENTIE R( IF A TH£N *HlCHKASFQflftARQ ( 2 . 1*3 . 2) ELSE 



7 1 1 

TEMP[1U«-ENTIER ((IF 800LEAN(0) THEN REAl(A) ELSE IF A 
THEN( IF 6Q0L,EAN<HtC46U3) THEN 

realcbooleancif a ~~ 



00070280 

00070290 

JLOUJUUQiL 



00070310 
00070320 
JLQS2&1M_.. 



00070340 
00070350 
00Q 7036Q 



00070370 
00070380 
00070390 



INTEGER HI 

800LEAN AfB#D; 

RE AL PROCEOURE wHICHwAsFQRwARQC Q,R ) ; REA L q, Rj 



00090000 
00090010 
00090020 
00090030 
00090040 
0009005 



00090060 

00090070 

,QQ0 9p_0_B.Q 



00090090 
00090100 
0009011 



00090120 

00090130 

JlQSli&XJLQ.. 



00090150 
00090160 
00Q9Q17.O- 



00090i80 
00090190 
0Q09Q2QQ- 



00090210 

00090220 

-00090230. 



00090240 
00090250 
00090260 



00090270 
00090280 
00090290 



00090300 
00090310 
00090320 



COMMENT 



ELSE 1 ) 

CHECKOUT OF 



THEN 1 ELSE 

+2.3); 

REAL TRANSFER 



2.4)) ELSE 5.4) 



function; 



00090330 
00090340 
00090350 



C*REAL(A EQV A ); C«-C.C«7Ul;TEMPti23«-ENTlER(C}; 
C*REALCCHECKREAL(TRUE#BOOLEAN(0)) OR B00LEAN<H f U7»U)); 
TSMPM33 ♦ ENTIER tOJ _ _ 



00090360 
00090370 
00090380 



C «■ REAL (B); TEMPC14] «- ENTIER(C); 

C * REAL( IF A THEN A OR B ELSE A AND B ); TEMP [ 153 *ENT IER (C >> 

C*8EAL <IF A THEN BOQLEA\(H. [47 » 1J ) ELSd B00lEAN(H,C42U 3)); 



00090390 
00090400 
00090410 



TEMP(163*ENTIER(C); 
C «■ REAL( IF B THEN BQQLEANUF A THEN 2*5 ELSE X) Ei&E 
< IF A THEN BOOLEAtKREAjCA)) ELSE B ).)* 



00090420 
00090430 
00090440 

00090450 
00090460 

00090470 



n 
2 

3 

4 



7 

8 
9 

10 

11 

12 

13 

,4 I 

15 

16 

,7* 

18 

19 

20 ( 

21 

22 

23 ' 

24 

25 

26 ( 

27 

28 
29 ' 
30 

31 

32 \ 

33 

34 

35 \ 

36 

37 

38 ( 

39 

40 

4,4 

42 

43 

44 4 

45 

46 

"1 

48 

49 

50 I 
51 
52 

63 f 
54 
55 

56 I 
57 



>r 



2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

,15 

|16~ 

1,7 

18 

19 

20 

21 

22 

23 

24 

25 

26 



TEMP[17J<- 
* BOOLE 



ENTlt 
ANC Y 



rco; 

COMMENT 

oiv xj; 



D «• BOOLE 
TEMP[1*J* 
* BOOLE 



CHECK QLT OF BOOLEAN TRANSFER FUNC 
TEMPC1B]*£NTIEI1(REALCP))1 



00090480 

00090490 

J3J30 9 0500 



ANC IF A THEN CHECKTRANSFERC 6* 2) ELSE "A")* 

ENTIER(REALCO)); 

AN (IF B OR B THEN TEMP CI 3 + TEMPC23 ELSE 



00090510 
00090520 
00090530 



REALCBOOlEAN("A w )>)J 
TEMP(203«_NTIER(REALCD)); 

COMMENT GENERAL USE 



COMMENT GENERAL USE OF TRANSFER FUNCTIONS; 
RE AL<B0OLEAN(REAL( BOOLE ANC R£ALCB00LEAN(5n))})); 
IF A THEN REALC80QLEANCH)) ELSE REALCBQOLEAN 
ENTIERCREALCBOOLEANCHnni 



00090540 
00090550 
Q 090 56Q 



27 
28 



29 
30 

31 

32 

33 

34 

35 

36 

37 ~ 

38 

39 

40 

41 

42 

43^ 



TEMPC21]*ENT1ERC 
TEMPC22]*.ENTIE»C ( 
__ C-5))) ♦ 



00090570 
00090580 

QQ09Q59Q. 



FILL ANS[*] Im I Th 0CT5* CC16* QCT1* QCT2* 00090600 

0CT2000O0O0GOOOC003* OCT Jf CCT3* 00090610 

OC T2000CC0000000002' OCT i^ JCT5* QCT3* UCTl* QCTl* QCTO* 00090620 



OCTl 
CVN »22f 



OCTl* 
6* 



OCTl* OCTl* OCTO* 0CT3* UCT21* 0CT5* 



PN0*9; 
VERIFY 



00090630 
00090640 
00090650 



.OLQJL 



PROCEDURE PlO; 



BEGI N 



COMMENT GEN, ARITHMETIC EXPRESSION, 
3. A. 3. 2 DEC. 11. KM, j 



IF CLAUSE, 



00090660 
00090670 

"ooiodQoo" 

00100010 
OQlQOn?n 



BOOLEAN 

INTEGER 

JRE___ 



*b; 
*y ; 

_Pi^G L 



00100030 
00100040 
OQlftaOSflL 



REAL PROC 
REAL X, 

-BEGIN 



EDURE GENARITH CX*Y,A); 
y; BOOLEAN a; 



gena 
end ; 

INTEGER P 



RITH* IF A THEN X/Y £_5_ x MOC Y* 

rqcfdlre general (x,y*a); 



00100060 
00100070 
QOlQOOflO 



00100090 
00100100 
0010011Q 



INTEGER 
BOOLEAN 
BEGIN 



x*y; 
a; 



00100120 

00100130 

_0JH.O_O_1JLO_ 



general * if a then x.u6j23 else (x+y).[46»23 

end; 

a» true; b«- false; x + 4; y»66; p» r/g _<■ 7/4; 



00100150 

00100160 



TEMPfU * 
TEMPC3J* 



5; TEMP 

IF B THE 

GENE RA L 



£23 * 7; 
N 7/5 ELSE 
(5*7, FALSE) 



(6£NARITH(7*5'»TRUE) ♦ 
L__J____ 



00100180 
00100190 
0Q10Q20 3. 



TEMP[4]* 
TEMP[53<- 
TEMPC6]*- 



IF A THE 
IF A THE 

jF A AND 



N "ABC" ♦ " 

N - GENERAL 

B THEN ■" 



ABC" ELSE 
U*5» TRUE) 
A" ELSE - 



X,C47:i3+3 ; 
ELSE - (P MOD 
"ABC" - "CPE"; 



Q MOD P); 



00100210 
00100220 
00100230 



45 

46 
47 
«8 
49 
SO 
51 
52 

53 



54 
55 
56 
57 



TEMPC73 * IF B THEN Q ELSE * 
TEMPC83MF NOT A THEN (?ENEH 
CAB" MOO 



TEMP[93 •• 
TEMPC103* 
TEMP[U3<- 



CGENARITHC 
ALC2*4»TRU 
"A") + "B w 



10»5#FALSE).U5»2J>; 
E) MOD X, £45133 ) ELSE 



00100240 

00100250 

jDJ3J,0____. 



IF B TH 

IF B TH 

IF B THE 



EN P+Q ELSE 
EN X ELSE I 
N GENE8ALCX 



C4 DiV 4) 
F B THEN X 
*Y*A) ELSE 



IF A THEN 



GENERAL 
OENARIT 

Oi '. 



C 4,1* TRUE) 
HC"ABC » * 



MOO 
A8C 



+ X,[45I13 ; 
ELSE IF B THEN 
IF B THEN 



00100270 
X ELSE Y;00100280 
0Q100290 



GENARITH (4, I, TRUE) ELSE 
* CA AND B)) ELSE 



TEMP[12J4. IF A THEN TEMPclJ MOD TEMP[2 
FILL ANS[*3 WITH QCT5* OCT?/ 0CT6* OCT 

OCT200U080000000003* QC 



00100300 
00100310 
Q1Q03 2Q 



CVN> 
PNQ* 



111 



0CTI3* QCT2* 0CT102* OCTO* QCT5J 



3 ELSE TEMP£13 x 5; 00100330 
424446* 00100340 

T2 0000000444650* PC TQ* 00 100 350 



00100360 
00100370 
QQ1QQ 38Q 



• • 



ft 

2 
3 
4 
5 
6 
7 

e 



12 

13 

14 

15 

16 

17 

IB 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 ~ 

38 



40 

41 

♦2 

43. ~ 

44 

45 

46 



47 
48 



49 

50 



52 
53 



54 
55 
56 
57 



VERIFY 

end; 

PjaHiI£Jiiifi£._Pj_LL 



COMMENT 3.4,11,1, ♦ LEGITIMATE Ui»E OF 
BEGIN 

REAL, PROCEDURE FUNC; FUN04; 



TEMP [l]«- + 5; 

TEMP C2]«- + C + C+(+( + C + (+3)))))); 

TEMP [3 ]«- + 5 + ( + 3)i 



00100J90 
00100400 

...OJU.l.Qil.Qa 
00110010 
OOU0020 
00110030 



00110040 
00110050 
00110060 



TEMP l«]«>*"»*; 

TEMP t5]**TEMPCn; 

TEMP C 63»*TEMPC83.CaOl7]; 



TEMP [7]*+FUNC; 

TEMP [8J*' + 6 + ,, 13" + TEMP[7] + Tt:MPlJj,C44:iJ+Kui\C# 

TgMP[93«. + w + .V'+" -6" ; 

FILL. ANSC*J KITH 0C?5, 0Cr3, UCT10, GCT77, GCt5* 

0CT122* CCT7411 ; 
C.V.M.^-g.1- P NQ»1 U , 



0CT1>0CT<J# 



VERIFY 

end; 
procedure p1 2; comment the arithmetic uperator 



0011G070 
00110080 
00110090 
00110100 
OOUOllQ 

..0JlJaQ.t.2Q. 
00110130 
00110140 

....O.Q.1.1 Q.X5A. 



JjiIL 



BEGIN 
REAL A#BJ 
L-±m/AL 



3jtH&fLlA±- 



TEMPC13* 
UMPC4] «■ 
_LEMEL.6_1 *. 



4-2 ; TEMP C2J * 2-3 
A-B; TEMP [5] «• B-A . 
15.2_.i_JE MP [ 7 j <■ 9fl j__ 



TEMPC9]«-A.[ 919]- £8+5), [9! 93* 

TEMPI 10 ]*»1 !-(•«); TEMP til]*- 11 -£-4) -5; 

TEMPT121*- + A - Uflll TEMPM33 «• -d»f Alf 



TEMP [3] * 4-2-U 
TF.MPC8] ±_TtM P [ 6 ] - T EMP.-LZ.3J- 



TEMPC14]*- - TEMP [6]- TEMPC7J; 
TEMPC15J* -A.[ 9193-8. [ 9:9]; 
BEGI N 

Integer "procedure calc <osubd>' 

function; 

integer dsubd; 



00U0160 
00110170 

_I_li__Q._fl. 
00120010 
00120020 

J]_U.2__3XL. 
00120040 
00120050 
OQ120060 

00120070 
00120080 
oni-Q non 



comment this procedure UStD to form 



00120100 
00120110 
00120120 



BEGIN CALC* DSUBD END; 
TEMP C 163* CALC £-7) -3; 
TEM P |1 71+ '"""'"AiB"; 



end; 



00120130 
00120140 
__ _2Q_5Q 
00120160 
00120170 
00.120X80... 



FILL ANSI*] WITH 0CT2, QCT20000.000.0000000 1 > OCTl, OCT tOlQOOOOOOOO 1442 ,00 120 190 
UCT30l00O0OOOO0i442» OCT 230*0CT i42» QCT66* 0CT225* 00120200 

OCT 2000000000000007, 0CT2Q0000Q000OQ00 14 , OCT lO lOOOOOOQOO 1442, 00120210 



OCT10100000CC001442' OCT^OOOOOOOOOOOO 3 7 2* 
OCT 200000000 00000 12* OCT 20000000002 12121 
CVN «-!7; 

PNO *12J 
VERIFY 
END i> 



CCT;>00000000000Q5_0j 



00120220 

00120230 
00120240 



PROCEDURE 
BEGIN 

INTEGER 



PI 3; COMMENT ARITH OPERATOR x 
1 * 1 1 * 12 , I 3 ,\ 4 ; 



REAL R6* Rl* R2» R3» 
ALPHA AO* Ai; 
BOOLEAN BJ 



R4* R5> 



00120250 

00120260 

001202 70 

3,4,4.l;00130000 

00130010 
00130020 



00130030 
00130040 
00130050 



INTEGER PR8CEDURE X (K); 

INTEGER k; 
BEGIN 



X4.K + 7; 

end; 
real prqceoure ycdj 



00130060 

00130070 
00130080 



00130090 
00130100 
00130110 



REAL L# 



2 
3 
4 
5 
6 
7 



9 
10 
11 
12 
13 
14 

ns 

'16 

lis 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 " 

32 

33 



Y«-L + 3,7 + 3,b; 



BE G I N 



00130120 

00130130 

■ QQ1301M. 



end; 
io*o; ii* i; 12*2; 

-TE MP [l3»l0wlQj 



I3«-S497556l3887; I4*-i; 



00130150 
00130160 
0O13017Q 



34 

35 

36 

37 " 

38 

39 



TEMP[23«-I0><12* 
TEMP[3]*IlxI2; 
TEMP[43»IlxU; 



TEMPt53*IOxial 
TEMP[63*I4*I4; 
rfMPfS1«.TaxT^i 



TEMP[7]*-IlxI3J 
TEMP[9]*I2XXC2); 

R0*0; RUl) R2-2.2J R3»BP5bi RU-lj ft5»8 P 
TFMPr inl*.RrtJcP»; 



COMMENT 
**** **** 



TEMPciOUROxRg; 

****** the card no A013029 is ohignal 

VALUE OF a g 5R IS KNfl HN 



L2JLL 



HEM0VE A0130295 wHEn 



TEMP[113*R1>.(R3*i3); 
TEMP[H3* ( CR1 x ( R3 
UJSEH2lJh&&JU31 



+ 13 ) ) 



I tnillXl.g JtM«X.I..ii 

COMMENT ***** CARD NO AQ13031 Is OHIGNAL 
******** VALUE FOR 8 9 -20 JS KNOWN 

TFMP[133«>RlxR5i 



- R3); 
"remove carcTncT 



A013031 WHEN 



COMMENT * 
******** 



TEMP[133«- (Rl *R5) + ( "Hb)i 

***** CARD NO A0J.3032 IS UHlGNAL REMQVt. CARD NO A0130325 

WHEN VALUE FOR a g -20 IS ftNQWN 



TEMP[H3*R4xR5i 

TEMP[H3«- CR4 * R5 ) + B5* 



i t"r [ i«» j * inn » K3 j t »3» 
COMMENT ***** CARQ NO A013033 IS QRIGNAL REMOVE CZRp NO A0130335 

******** MHFNI W A I I I F F P R A (A SH ANiH ! -on IS KM'juiM 



WHEN VALUE FOR 3 t» 53 AND "« ""9 " -20 1 I S KNLwN 

TEMP[153*R3xr5; 

TE MP[ |53» (R3* R5) - CR3x Hj_lj 



00130180 
00130190 
■ 00U020 O- 
00130210 
00130220 

oo una 30 

00130240 

0C130250 

.Ml 30 26 0_ 

00130270 
00130260 

Q013Q290 

00130300 

00130310 

001,30 320- 

00130330 

00130340 

00130350 

00130360 

00130370 

JHL13JL3JUL 
00130390 
00130400 
00130410 

00130420 



TEMPU63«.Rlxv(6,8); 
A0* M 0"; Al* M AA M ; B«-TRUE> 
TEMP[173«-3,14x"BF3"; 



TEMP[183«-IlxAi; 
TEMPtl93«-R4xAlJ 
TEMPC203«-2,7x( IF 3 THEN 



■ W - ■ >j. — ■" - — W ' *__*_*J w ■ ' 1 1m ' 

TEMP[2l3*XC-5)xYC0.8); 

TEMP[223* rt 8B"xAi; 

TEMP[233»AOxAi; 



7 ELSE -1.5); 



00130430 

Q013Q44C 
00130450 
00130460 
00130470 
00130480 
00130490 
00130500 
00130510 
00130520 
00130530 



41 
42 



45 



TEMP[2«]«-I1, [45131 x I2.[4J«33; 
TEMP[25J«-A1,[42:6J x HI. [4513]; 
FILL ANS[*] WITH UCTO' OcTO' 0cT2' 



OCT20000000000UU001» 



00130540 
00130550 
0C13Q560 



OCTO, OCT l#OCT0UO7777777777777,0CT2O07777777777 777, 00 130570 

0CT22* OCTO* 0CT0» 00130580 

QCT2007777/77777777, OCTO, . 00130590 



46 
47 
•8 



OCTO, OCTO, QCT16* 
0CTH17131631463146, 0CT2121' 
0CT11322714O314O315* 0CT20' 



OCT 200000000000 2 121' 

0CT4735062» 



00130600 
00130610 
00130620 



49 
50 
51 



CVN*25; 



0CT122006* OCTO' 0CT2W 



00130630 
00130640 
00130650 



52 
53 



VERIFY 



end; 



PR6CE0URE Pl4j CBMMENT ARITHMETIC OPERATOR / £k 7 NOV 62/ 



00130660 
00130670 
00140000 



55 



8EGIN 



INTEGER J'K; 
REAL A,BJ 



00140010 
00140020 
00140030 



n 

2 

3 

4 
5 
6 
7 



ARRAY 
REAL 



Y £ 1 S 3 D ; 

PROCEDURE 
BEJLLfl 



PROD (A, 6)/ REAL A* B! 



00140040 
00140050 
OOlflJU-QAQ.. 



PRQD*AxB 
END) 
-TFNPC1 3»lO?l/2i 



00140070 
00140080 
00140090- 



TEMP[ 
TEMP[ 

.J±_2X 



23*1023/1023; 

3]* -o/i; 



00140J00 

00140110 

JO-Q140120 






10 

u 

12 



13 
14 
IB 
16 
17 
18 
19 
20 
21 
22 



K* 10 

A*125 
H»5; 



00140130 
00140140 
00140150- 



Y[1U 
TEMP[ 
TEMPr 



Y[2 
5 3* 
6_1* 



J*Y[33*lb> 

"#KE:Ht."/"j((KEHe"; 
YC23/BJ 



TEMP[ 
TEMP[ 
TEMPf 



73* 
83* 
93* 



K/JI 

a/s; 

K/Bf 



00140160 
00140170 

.fl,o 1 4.oxao- 



00140190 

00140200 

Jl.QAAQ.2A.Q_ 



TEMP[103*PR00(A»B)/125; 

TEMP[ll3«-AxB/(20-fB)/ 

TEMPrl23»A.[39l3]/i; 



FILL ANS[*3 WITH 



OOU0220 
00140230 
0014Q 240 



OCTlOlQOOGOQ0007774# 
OCT2000000000000000* 
0CT5, QCT31* orT?> or 



CTl, 

UCTO, OCTl* QCT3, 

T 5> 0CT. 11 / Q CTi ; 



00140250 
00140260 
Q014Q270 



23 
24 



25 
26 
27 
28 



29 

30 



31 
32 
33 
34 
35 
36 



37 
38 



39 

40 
41 
42 



CVN* 
PNQ* 
VEIRIF 



12* 

14; 

Y 



end; 
procedure 

B EG IN 



00140280 
00140290 
00140300. 



P15 ; COMMENT THE ARITHMETIC OPERATUR (DIV)J 



00140310 
00150000 
00150010 



REAL A,B; 00150020 

integer c» d; 00150030 

in teger procedure cauz c ddjldjj cogent the phqcequre used to for* qq150040 



INTEGER 
BEGIN 



ODIV 
JNIX 



d; 

G_E_R_ 



function; 



a; 



00150050 
00150060 
00150070 



A ♦ 25 01 V DDIVD ; CALCZ «- A/ tNU; 00150080 

A * 137/5; B * 69/5; C * d*; D * 89; 00150090 

TEMPI13+ 27Q DlV 9 ; TEMHC23* A DIV Bj TEMP [ 3 J «■ CALCZ C 5 ' )DIV OQlSOl 00 



TEMPC43* 
TEMPC63 ♦ 



W AB"DIV "A"i 
•270 DIV 9 ; 



TEMP153* C.C42J6] DIV 
T£MPC73*A OIVCB); 



CALCZ C5); 0015OH0 

0,C42|63; OQ150120 

T£MP_83 * -CALCZC 25) 00150130 






TEMP[9]«- - M AB" DIV 
TEMPU1 3* 270 DIV 9 DIV 



"A"; TEMPCIO]* 
3;TEMPU2]«-A DIV 



DIV i; 00150140 
C [39:93 DIV D.[42«63; 00150150 
B UlV 4; 00150160 



43 



45 

46 
47 
«8 



TEMPU33* CALCZ( 5 >OlV CALCZC 5 
TEMP£153«-D.[42I63QIV 3 DIV A; 

TEMPI 163 * 15 DIV 25 DIV B ; 



TEMPC183* CALCZ( 1 )DIV 1 DIV a; 
TEMPC203* C,C42»6]DIV 5 DIVA"; 
FILL ANSt*3 WITH P_C_L36j> OCT W 



)OlV 0.C42J63; 00150170 

00150180 
TEMPC173 * B D IV CALCZ C253 DIV A; QQ150l90 



TEMPC193* "aB"U1V C.E45.33; 



0CT1» OCTlOlo 0CT1» 



00150200 
00150210 
00150220 



# 
# 



52 
53 



54 

55 
56 

5. 



OCT2000000000000036# 
OCT200000000000010l» 
OCT Q / QCT Q f QCT2122/ 



OCT2000000000000001, 
QCT3* 0cTi2# 0cT0# 

qctq; 



OCT2000000000000001* 
CTO, 0CT0» QCT0# OCTO# 



00150230 
00150240 

00150250 



CVN * 20; 
PNO * 15; 
VERIFY 



00150260 
00150270 
00150280 



end; 
procedure 

BEGIN 



Pl6i COMMENT ARtTH OPERATOR MOD 



00150290 

3.4,4. U00160000 

00160010 



\r 



2 
3 
4 
6 
6 
I 

a 

9 
10 

11 

12 
13 
14 
f.5 
'16 
17 
18 



19 
20 



21 
22 
23 
24 



25 
26 



27 
28 
29 

30 

31 " 



32 

33 

34 

35 

36 

37~ 

38 

39 



40 
41 
42 
43 



45 
46 
»7 
48 
4» 
50 



52 
53 
54 

55 

56 



INTEGER 10* U> 12* 13> 14, 
REAL RQ>R1#R2»R3,R4»R!j; 
..INTEGER P RO CED UR E <SU'Y>; 



15/ 



INTEGER X>Y; 
BEGIN 

z» x+y; 



END; 
104-0; Il«-i; l2«-2; I3«-17, 

T£MP[1]+IQ Mnn n; 



H*-2; i5f-e; 



TEMPt23*i3 HOD I2i 
TEMP[3]4. + 3 (woD IJJ 
TEMPr43»T5 MOD i?; 



TEMP[5]*I5 MOD 14; 
TEMP C634-I3 MOD 14; 
rq»q; RUi; R2*-2.2; 



TEMP[7J*R6 MOD Ri; 
TEMPc83«-R3 MOD R2i 
TEMP[9-]»R3 MOD RH 



R3»6.9j R4»2; 



TEMP[103«-I5 MOD R2; 
TEMPCUJ*-I5 MOD (II + 12 + H2); 
TEMPrl23+"A" MOD 4; 



~TEMPU3]*-37 MOD (IF R2 « 2.2 
TEMPC143M8.5 MOD Z(3'3)J 



THEN 6 ELSE 3)J 



ltMr[i<|J#>48,5 WOD 2(3*3" 
TEMP[153«- l-3.[42;6] MOO I2,U5I3J) 

COMMENT ******* VALUES IN THE AnS ARRAY WERt MOOIFI 
****** FOR THE DEVIATION OF THE CONVERT KCIUTINE 
****** TEMPrfl] « 115063l463l4fc340 



ED TO ACCOUNT 



TEMPT83 « 1150631463146340 



ANS[83 * 1150631463146314 
TEMP[9] * 1157146310631500 

illCffll _ < iBTt /ii.^i Alii (IA5 



ANSC9] = 1157146314631463 
TE»PMQ]» 3141314631463147 



ANSClO] x 3141314631463146 
TEMP[U3a 3142631463146315 



AN3[H3 * 314263l4o3l463l4 



FILL ANS[*J WITH OCTO* QCTl> OCTO* UClO> GCTO* 

CC Tl j> UCTOj 0CTU50631463146340> 

OCT 1157 1463 146 3 1500* 0CT314 1 3 1463146 



0CT31426 
CVNM5; 



00160020 
00160030 

ftflfiAfl - 

00160050 
00160060 
Q016 0070 
00160080 
00160090 

Q0160100 _ 
00160110 
00 160 120 
QQ 1601,10 



00160140 

001601^0 
00160160 



00160170 
00160180 
On 160 100 
00160200 
00160210 
-Q0 16Q2 2Q 
00160230 
00160240 
00160250 



00160260 

00160270 
00160280 



00160290 
00160300 
00160310 



00160320 
00160330 
QQ 1 6Q14 Q 



00160350 
00160360 
0016 0370 



end; 



PN0*16| 

verify; 



CT1157 1463140 315U0# UCT 3 14 1 3 146 3 146 3 147 * 

31463l463l5,QCTl,OCTl,0CTU54OO0OQ0O0QQ0O,0CTi; 



OOI6O38O 
00160390 

00160400 



00160410 
00160420 
00160430 



PROCEDURE P17J COMMENT 
BEGIN 

INTEGER J>KJ 



ARITHMETIC OPERATOR * EK 7 NOV 63i 



00160440 
00160450 
00 16046 



REAL Y,Z,w; 

ARRAY X C 1 I 3 ] ; 

INTEGER PROCEDURE SUM (J»K)i 



00170000 
00170010 
0170Q20 



end; 
w* 10,0x2; 

J-2? 



INTEGER J*K; 
BEGIN 

SUM* J+K 



00170030 
00170040 
00170050 



00170060 
00170070 
00170080 



K*- 4; 

Y * 10. 0; 

Z» .2 x 11 



00170090 
00170100 
00 1701 10 



00170120 
00170130 
Q017Q140 



1< 



• • 



2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 



19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 ~ 



32 

33 

34 

35 

36 

37 " 

38 

39 

40 

41 

42 

43 



45 
46 



47 
48 



49 
50 



51 
52 
53 
54 



55 

56 



X[13«-X[2]<- X C 3 J *- 
TEMP[13«" 2*2; 
. .. l£MEi20±_J*KJ 



3.o; 



TEMPJ33* (J/4)*j; 
TEMPt43* 0*KJ 
T EMPTS]* 6*j; 



00170150 
00170160 



00170180 

00170190 

J_J_Ji_-2J__Q. 



TEMP[63* Y*C; 
TE*P[73* Z*C-0); 
TEMPrBl*- (W/Y)»(-J); 



TEMP[93* (¥-Y)*2.5; 
TEMPC1C3* Y*2.0; 
T£MPtll3» (K»J)»fJ»1.5)J 



00170210 
00170220 

_QJLL70Z14_ 



TEMPrl23<- (K/Y)*0.0; 
TEMPtl3]> CM.5)*C0)i 
TEMP ri43+(YxY) «CJ){ 



00170240 
00170250 
.001702 6 -0. 



TEMP[133* XC11* Xt2); 
TEMPtl6)*X[3] * SUM(J#K); 
TEMP[173«- XC2I*J.C47U3> 



00170270 
00170280 
00 170 29.0, 
00170300 
00170310 
0017 0320 



TEMPC183* 1*"000000"; 
COMMENT THE FOLLOWING ANSWERS WERE MODIFIED 
***** _ CONSTRUCT ANS SHOULD UE 



to obTAiN a clean listing 

AN5 IS 



00170330 
00170340 

00170350 



***** (4-2) *C2xl,5) OCT 10 
*** 3*3 OCT 33 

FILL AttS c*3 WITH QCT4> 0CT2U, 



0CT10. 00000000002 00170360 

0CT33. 00000000004 ^00170370 

nCTl0l000Q00Q000002, DCTO, j__ 70380 



0CT2O0OOOaO00000000* QCTl* OCTl# 00170390 

OCTlOlCC00000000002» UCTO* CJCT144> OCT 1 1 3 1000000000002* 00170400 

OCTl, OCTl, 0CTl2l321bb6l353u7 l , OCT 1 1 333QQOOQOQQQQ4 , QQl 704lQ 

0CT1331* OCTl* OCTi; 00170420 

CVN* IS J 00170430 

■_______-l?> 1 .0JUX Q4 4Q 



VERIFY 

end; 

PROCEDURE PlSiCOMjENT ARITHMETIC EXPRESS I Ql\i> WITH MIXED TYp_S; 



00170450 
00170460 
00160000 



BEGIN 00180010 

TEMP£l3«>C4.57)x23; T_MP£2J* 27+13,27*3; TtKP[33«- 27* 13.27x3; 00160020 
TEMPC fl3»2 t 7x3 x3,4x«, TLMP.5J*. ,7»3»3. 4x4J __.0Ql60p.lQ 

T EM P[ 6 ] *7/ 4 ; T £M p [ ? ] «-9/2 . 3 ; T E M p| 8 ! !«■_ , 3/ _ ; T £M p [ 9 3 <-2 7 . 3 x2/ 27 ,3* 1 j0bT800 4 " 



TEMP[103*8 MOD V; TEMPLllJ* C-8)MQD 1.6; jEmP [123*7,5 MODC-3); 0q16005q 
TEMP[ t3)»l._MC0 0.7; 00160 06 



FILL ANSt*3 



MTh 0CT200O000O00002437, 0CT11210263656Q5076, 00180070 
QCTiH20626753«1220, OCT U2 156 12l7270244# 00180080 
0CT1132554631463146, OCT 114 1600000000000/ 00160090 



0CTH4 37 23 36 4675157* uCTu4lll463146 3l47> 
QCTH5l463l463l«632* QCTlO, 
OCT 3 14 H6 3 146 3 146 30* OCT 1 14 1400000000000* 



cvn*u; 

PN0»18l 



0CT1150631463146314; 



ooieoioo 

00180H0 
00180120 



VERIFY 

end; 

PROCEDURE Pl9; 



00180130 
00180140 
00160150 



COMMENT PRECEDENCE OF ARITHMETIC OPERATORS 



3.4.5; 



00180160 
00180170 
00190000 



BEGIN 



INTEGER I1,I2*I3,I4,I5,U0,IX,IY; 
REAL R0*R1jR2'R3»R4*R5,R6j 



ALPHA Al*A2; 

integer procedure x(g#h*ix); 
value g,h»ix; 



00190010 
00190020 
00190030 



00190040 
00190050 
00190060 



INTEGER G#H,IX; 
BEGIN 

.'..■' .-.H*6J-..'.. 



OQ190070 
00190060 
00190090 



# 



h 

2 
3 
4 

6 



9 
10 
11 
12 
13j 
14 
15 
16 
"17 
|l8 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 



x*g; 



end; 



INTEGER PROCEDURE YCJ*IY); 

value j» iy; 
__ integer j/iy; 



00190100 

ooivono 

J&QA1A12Q. 



BEGIN 

end; 



00190130 
00190140 
001901 50 



Y*J*IY*2; 



REAL PROCEDURE Z ( K* L*M*H0* Rl *R2*R3 

VALUE K»L»M#R0fRl»R2»R3J 
INTEGER K; 



); 



00190160 
00190170 

QQl9Qlfl-0_ 



REAL L*M*R0*R1*R2*«3* 
BEGIN 

rc+k+l; 



00190190 
00190200 
0Q 19Q2 1Q. 



ri*k-l; 

R2*k/l; 

_R J»kxl; 



00190220 
00190230 
Q0 + 9Q 24JL 



IitJ. 



z«-m; 

end; 

I2-2J T3»3; t4»4; t5+5; t 1 «- 1 ; iX»Q; rY<-0; 



00190250 
00190260 
onm o?7n 



TEMPC1]*I1 + 
TEMP[23*-H ♦ 
TEMPr31»T1 + 



TEMP[4D«-H + (12 x 13 

TEMP[5)«-(H + 12 x 13 
. I£MJP_L6 3 » ( 1 1 _±_12„*_ JJL 



12X13 * 14 -(110 DIV 15); 
I2xi3 * (14 - 110 DIV 15); 
I2x(I3 ♦ T4 - IIP DTV T5); 



00190280 

001*0290 
■0019Q30Q 



* H - HO DIV 15); 

* 14 - I JO OIV 15); 

JL U " 1 10) DI V— L5i- 



00190310 
00190320 

-oxiiafl3 3b 



TEMP[7]* (Il + I2xi3*3)-U0 OIV 15; 
TEMP[8]*(H * 12x13) * 14 - HO D IV 15* 
T£MPr9l»(Tl * T?1 k |3 * H ■ tin nil/ \bl 



00190340 

00190350 

_flflJL9fl3£Q_ 



TEMP[10J*I1 

TEMP[11]«-U 

-TEMPrl?3*Tl 



+ 12x13 * 14 - HO DIV 15; 

+ 12 x 13 * (110 - 14) DIV 15* 

+ (12 * ,13) * L4 - IIP DIV fiJ 



00190370 
00190380 



II +12 MQO XCll* 12* I3)XIY*Y(H*I2)*11"I2 DIV 



TEMPtl3]*H0 x 

15-11 + 13** 
TE MPrU3»tI10xiloT8 MOn X ( 1 1 , I 7, T 3 ^x Y ( T 4* fS W f 4' T 1 Q njV 

15-11+13); 
TEMPtl53«-H0xil + I 2 MOD X ( 1 1* 12* I 3 )*Y ( 14* 15 ) * 14- 1 1 U DIV 

(1 5" 1 1 + 13 )* 



00190400 

00190410 

.00190420 



RO+o; ruo; R2*o; R3*o; 

TEMP[16]*I3+I3xi2; 

TEMPC173+I3XI4-I2; 



R4+-1* R5*545755813887; R6**2; A2*"A*»; 



00190430 

00190440 

QQ19Q45iL_ 

00190460 

00190470 



TEMPcl83*I3x(I4-i^); 
TEMP[193«-I4/I2+I3XI2; 
TEMPf203»I5 MOO 12 + 13; 



00190490 
00190500 
00190510 



TEMP[212«-I3 DIV 12 MOD 12; 

TEMP[223M3-R6*R4; 

TEMPC233»R4+l5*R6X» MOD 4; 

TEMP[243«.(R0-R2+R3xZ(4*2*RC*Rl*R2*R3*R4))/(R2 + 6); 
TEMP[253+22+(IF H»0 THEN I2xR5 ELSE A2); 

ai*'»aa m ; 



00190520 
00190530 
Q1 90 54Q 



00190550 
00190560 
0019 0570 



TEMP[263*"AA W +R5 MOO 7*1; 
TEMPC27]*A1+R5 DIV ( 7* 1 )-68f 19476733; 
TEMPf2inZtl*2»R0*Rl»R2»R3»R4)xR6; 



00190580 
00190590 
00190600 



TEMPC29 3«-Z(6»3*Rl*R2*R3*R4#R5)xR2*R3-R0XR3* 
TEMP [30 3 *( 4x8-3+4 ,5+2. 5 )/9; 

:OMMENT ANSWERS AND OUTPUT; 



00190610 
00190620 
00190630 



FILL AN$£M WITH 0CT241* 0CT23* 0CT237* 
0CT241* 0CT241* 0CT36* 
0CT65* 0CT4537* QCT361* 



00190640 
00190650 
00190660 



00190670 
00190680 
00190690 



"n 

2{ 

3 
4 
5 i 



7 
8 
9 
10 
11 i 



• • 



r~ 



2 
3 

4 
5 



QCT241* QCT444, 0CT2421* 
0CT14* 0CT12* 0CT11* 

HCT1W- OCT,?* HCT6> 

QCT10* 0CT4* OCTl* 
OCTl* 0GT6, OCTO, 
QCT47* QCT7122, OCT2123* 



00190700 

00190710 

SIA15LQ12SL 



00190730 
00190740 



QCTOt 
CVN*30; 

PNG»|9i 



OCTQ, 0CT<+! 



00190760 
00190770 



9 
10 
11 
12 
13 
14 
15 
16 
17 
18 



19 
20 
21 
22 
23 
24 
25 
26 
27 
28 



29 

30 



31 

32 

33 

34 

35 

36 

37 " 

38 

39 



VERIFY 

end; 
proced ure p2i; comment 



boolean expression using if clause 



00190790 

00190800 

.M2.lfl.GQQ. 



BEGIN 



BOOLEAN 
-I NT EGER, 



a*b*c»d*e; 



BOOLEAN PROCEDURE BOOL (BlSuBSl* A,6 ) ; 
BOOLEAN BLSUBBL#A#BJ 

BE GI N pnoi «• a nR § qh mot hi suwai 



JLhllL 



00210010 
00210020 
.0021.0.0-10 
00210040 
002X0050 
jmiLLSLOAQL 



BOOLEAN PROCEDURE SECBQGL (BSyBBL* A,B ) ; 

BOOLEAN BSUB8L'A*6; 

BEGIN SECBOCL «• A OR NOT HSUBBL E[\D; 



00210070 
00210080 

jiflJioom 



b *■ false; a* True; h» u; j* 14; c* false; o* false; e* True; 00210100 

A*IF H«J THEN TRUE ELSE FALSE** TEMPC U*«EAlC A, [47 1 1 3 ); 002l0tl0 

A* IF TRUE THEN A ELSE 8J T£MP[23+ REAL ( A. C4 7 tl 3 Al A*TRUF; Q&21Q12JSL 



A«-IF A THEN BOOLCB*A*.B) ELSE IF B THEN C lLSE U* 
TEMP[33* REAL.(A.[47UJ)i H*h + j; 
_A±_l£. H*J THEN H + J>H-J LULL M TfMEl 4T<- R E AL( A « L 47 * 1 ] ) ? 



A «- 



A* IF H>J THEN ( iF JJH THEN 
TEMPC5]*- REALCA f C47«nj; 
IF A THEN TRUE FQV Fai SE El. St 



A ELSE 8) ELSE IF C THEN A ELSE DJ 
TRUE* TEMPI: ft 1 * RFAl, (A.U7tl1,U 



00210130 
00210140 
QJliLUU5..a- 



A«- IF A THEN H* J ELSE B; UMPCH «• REAL (A. [47*13); 
A*IF H*J THEN B00L(8,A,B) EQv SEC8Q0L< B# A, B ) ELSE CJ 

...LE.MP[fl3 <• REAL CJUXAZ-ULlXt _ 



00210160 
00210170 
0021 0180 



00210190 

00^10200 

J3XL2JLflL2ifl- 



A* IF 8 THEN (H + j) = (H + J) ELSE IF H + J > H-J 

TEMPt93*REALCA.[4?U3); 

. A ♦ . IF A THEN (IF HsJ THEN C ELSE A) EQV CH>J) ELSE 



then a else b; 
b; 



TEMP[103«- REALCA.C47I13J; 

A* IF A THEN C OR D ELSE Ej TEmPCIIJ* HE Al( A. C 4 7 I 1 ] ) ; 

A<-IF B EQy A ThEN BOOL(B,A,B) QR SECBOCL(B,A*B) ELSE C; 



T£MP[123* REALCA.C47U3); 
A* IF 8 THEN H > J OR J > 

TEMP[133» REALCA. [47*13); 



0021022C 
00210230 

.002,1.9.240. 

00 210250 
00210260 

Jia2.ifl_2.7Ji.. 



h ELSE IF C THEN ELSE AJ 



00210280 
00210290 
00210300 



40 

41 



A* IF A THEN (CIF A OR B THEN C ELSE A) OR (A AND B)) ELSE E ; 00210310 
TEMPC143* REAL(A,C47:i3 ); 00210320 

A*IF 8 THEN 800LC8,A,8) AND SECBQQlC 8* A*B ) ELSE A AND B' 00210330 



TEMP[153«-REAL«A,E4FI13); 

A* IF H * g THEN CIF A OR 8 THEN C 

TEMP[163»REAL(A.C47U3); A*TRUE; 



ELSE A) AND <B OR D) ELSE 



B THEN NOT B ELSE E; TEMPC17J* REALC A. C 47 J 1 j ) ; 
A EQ^ 8 AND NO] C ElSE IK C THEN A ELSE C ; 



00210340 
E;00210350 
00210360 



46 

47 



A* 
A«- 
A* 



IF A OR 

true; 

IF A THEN 



00210370 
00210380 
00210390 



49 
50 
51 



S3 



55 



TEMPC183*. REAUA f U7*n); 
A* IF A THEN H.C45I33 > J 
TEMPa93«^REAL(A ^ ^;47'^,3)• 



142163 ELSE E> 



A* IF A THEN (IF H, [45*33 > (J,U2»63 - H, [45*33) THEN C 
ELSE A ) OR NOT (A OR B) ElSE a; TEMPC20 3*REAL( A , [ 47 » 1 3 ) ; 
FILL ANS[*3 WITH OCTl* OCTl* Q CT 1* OCTl* OcTO* OCTl* 



00210400 
00210410 
00210420 



OCTO, 
QCTQ* 
CVN ♦ 



0CTW 
OCTO* 
20| 



OCTl, 
OCTO* 



OCTl* 
OCTl* 



OCTO, 
OCTO, 



OCTl* 
OCTl* 



OCTl* 
OCTl* 



00210430 
00210440 
00210450 
00210460 
00210470 
00210480 



r~ 



>r 



1 

2 

3 
4 
5 
6 

7 
8 

9 
10 
11 
12 
113 



PND <• 21; 
VERIFY 



end; 



PROCEDURE P22; COMMENT RELATIONAL OPERATOR < 

BEGIN 
INTEGER I0»I1»IN1M2»IN2*IMAXMMINJ 



00210490 
00210500 

-QflJ2JJL5UD.. 



INTEGER PROCEDURE 
INTEGER K; 
. BE G I N 



x(k); 



3,5,5. 1J002200CO 

00220010 
0fl21.0fli0_ 



x«-k+2; 

end; 

-RFAI. PRQfFnURF Y ( 1, ) I 



REAL 



u; 

BEGIN 



Y»L+3 t 6» 



enc; 

10*0; H*ii INU-I; 12*2; iN2*-2; 
IMAX*54 9755Bl38fl 7 i IM I N*-5d»7Sq81 3afl7 i 



TEMP[1]*IF 0.0 < 1.0 THEN 1 ELSE 
TEMP[2)*IF -1.0 < 10 THEN 1 ELSE 
TEM PT3]* IF 4.314963 < Xfl) THfN 



o; 
o; 

1 ELlE. 



TEMP[4]* IF 4.314P63 < I0.C«7t 13 ThEN 1 
TEMPt5]*IF 1.75046 < " " THEN 1 ELSE 0; 
TEMPT6]*IF M. 759-30 <T1 THEN 1 fiSf Ot 



JLL 



ELSE 0; 



TEMP[7]*iF 
TEMP[8]«-IF 
TEMP[9]*IF 



11 < INI THEN 1 ELSE C; 

12 < YC-3,0) THEN 1 ELSE C; 
IN? < ieiCV;3S>] THEN 1 ELSE 



0. 



TEMP[103*IF IMAX < " " THEN 1 ELSE Oi 
TEMPC11]*IF IMIN < (2^8) ThfcN 1 ELSE OJ 
TEMPC123*IF X(l) < YC2.4) THFN 1 FLSr Qi 



TEMP[133*IF 
TEMP[lfl]*IF 
TEMP[ 153«-IF 



X(2) <H,[45»3J THEN 1 ELSt 
YC3.4) < "0" THEN 1 ELSE 0* 
YC1) < C10/5) THFN 1 Fl Sr o; 



TEMPE133* IF I2.C42»63 < IHAX.CH33 THEN 1 ELSE Oi 
TEMP[173* IF IMAX»[45»33 < "«" THEN 1 ELSE 0; 
TE MPC183*IF IMAX.E9;393 < (9 QIV 2) THEN 1 ELSE Oi 
TEMP[19J*IF "AA" < "Z2 M THEN 1 ELSE Oi 
TEMP[203*IF "MMM" < ( 100 MOD 51) THEN 1 ELSE Oi 
TEMP[213*IF (12 +5) < (47 - 18) THEN 1 ELSE Oj 



COMMENT ANSWERS AND OUTPUT' 

FILL ANSt*3 WITH 0CT1* 0CT1* OCTO# 
__0CTO,0CT0* 0CT1/ 



OCTCOCTO* CCTW 
OCTO* 0CT1* OCTl> 
OCTO/ OCTO/ OCTO* 



OCTO* OCTl* OCTO» 

OCTi# OCTQ* OCTD 

CVN*2JJ 



ENOi 



PN0*22i 
VERIFY 



PROCEDURE P23i COMMENT THE RELATIONAL OPERATOR (S)i 

BEGIN 
BOOLEAN A*B,Ci 



INTEGER H,J,Ki 

A* TRUEi 8*FALSEi H*l5; J* 15i K* 30; 
A»IF A THEN H<J FLSE til TEMPM1 * 



A* IF A THEN H S J EQV H $ J ELSE 8i 

A*HSJi TEMPC33 ♦ REAL (A.UIIi'J); 

A>HSJ EQV HSJi TFMPC4r»RgALfA.C4IinU 



C*TRUti 

REAL (A.f47tl3); 



00220030 
00220040 
00220050, 



00220060 
00220070 
002200 8 - 



0022C090 
00220100 
00220110. 



00220120 
00220130 
002201 



00220150 
00220160 
Q022Q17Q 



00220180 
00220190 
LQJL 
00220210 
00220220 
-QA2ZQZ1Q. 



00220240 

00220250 

..0.0,22026,0. 



00220270 
00220280 
QQ22Q29Q 



00220300 
00220310 
0Q22 O32Q 



00220330 
00220340 
00220350 



00220360 
00220370 
00220380 



00220390 
00220400 
OQ2204 .1Q 



00220420 
00220430 
00220 440 



00220450 
00220460 
00220470 



00230000 
00230010 

002 . 30 020 



00230030 
00230040 
0023005Q 



TEMP[23* REALCA.U7I13); 00230060 

00230070 
00230080 



2 
3 
4 
5 
6 
7 



9 
10 
Hi 
12 
13 
Hi 
15 
16 

"< 

18 

19 

20 ( 

21 

22 

23 ( 

24 

26 

26 ( 

27 

26 

29 ( 

30 

31 

32 < 

33 

34 

35 ( 

36 

37 

38 { 

39 

40 

4-< 

42 

43 

44 f 

45 

46 

47 4 

48 

49 

50 % 

51 

52 

53 1 

54 

55 

56 1 

3 



• • 



2 
3 
4 
5 
6 
7 



9 _ 

10 

11 

12 

13 

14 

15 

16 

17 

18 

\a 

20 
21 
22 



23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 " 

38 

39 



A* 

A«- IF B 

AAJ_.tJ.___i 
A* IF A 
A*H+K5J 

__«_. 



IF A THEN H+ J< K OR hSu ElSE C, TEMP[53 <■ HEALC A, [47 1 1 J ); 00230090 

THEN A ELSE H-J<K; 1 EMP [ 6 3 *«E AL ( A , [ 4 7 i 13 ) '> 00230100 

. __R.-ii__ JUL— TFMPt7 J»RFAHAtL**7«l 3 )i QJ_J2 ___a_l_LQ. 



THEN H/u AND HSJ ELSE Ci TEMP[83*REAL ( A. I 47 t 1 3 >J 00230120 

AND H$k; TEMP[93*-REAL(A.[47 II J); 00230130 

-IF A T HEN NOT H S K ElSE N DT B. T F MP L.m* RFAi t A.ra7tl -p i _KX2J._U-1L0- 



A + NOT H<j; TEMP[il3*REAU(A.C47«ll)| . 

FILL ANS[*3 WITH QCT1. OCTl* UCT1, 
_ QCTO. CCTO, OgTl* dCTO ; 



0CT1* 0CT1. QCT1# QCT1. 



00230150 

00230160 

JWLgjiQlZa. 



cvn«-ii; 

PNQ*23J 
_V£RIF_Y_ 



_EJ_J____ 



PROCEDURE P24; COMMENT THE RELATIONAL OPEHMOH (5);" 
BEGIN 

BOOL E AN A . B.c; 



00230180 
00230190 

__Q______2Q0. 

00240000 
002^0010 

_ aii2.40_.a2i3 



INTEGER H. JtKJ 

a«- true; b*false ; h* is; 
a * _ if a then h»j else bj 



A*IF A THEN H=J EQV HsJ ELSE BJ 

TEMP[23«-REAL(A, [4^:13); 

A* H=j; TEMP [33 » REAL(A?i 



._«■ is; k* 3c; c* true; 

TEMP [13 «■ REAL (A. [47113); 



00240030 
00240040 
00240050 



A *H*J EQV H«j; TEMP[43*REAL (A,U7UJ)' 
A* IF A THEN H+4«5 UR H*4 ELSE & ; 
TEMP f 53» REAL CA..ft7ll_.; 



00240060 
00240070 
00240080 



A* 
A* 

..A±. 



IF B THEN A EL^E H + 4 E 4 ; TEMP 
H + JsK CR H= J ; TEMP [73«- 

~l£ A THEN H = J AND _L=J_ ELSE 



00240090 

00240100 

J___240.LL_L 



TEMP[8J*REAL(A,[47ll3 3; 
A* H+J»K AND H«J ; T£M-P 
- A* I F A THE N N OT H» K ElSE 9* 



[63 «- REAL 
REALCAj; 

Xi— 



(a); 



A«-NOT H*j; TEMP[113«-REAL(A,147:13); 
FILL ANS[*] WITH QcTl, OCT U OCU. Odl. 
OCTQ, CCT1> 0CTJ__ OCTO; 



[9J <• REAL. A. [47113); 
TEMP [l Ol»RfcA LIAiC 47n J); 



00240120 
00240130 
_.jQ_0_L_l_UAfl- 
00240150 
00240160 
00240170 



OCTU OCTO, QCTl 



00240180 
00240190 
00240200 



CVN * 11; 
PNO* 24; 
VERIFY 



end; 
procedure p25; comment 

BEGIN 



00240210 
00240220 

_0X.2402__0_ 



RELATIONAL UPEkATur > 



INTEGER I0M1»IN1#I2»IN2»IMAX#IMin; 
INTEGER PR8CEDURE XCK)/ 

INTEGER K; 



00240240 
3.5.5,1.00250000 

0250 010 



00250020 
00250030 
00250040 



40 

41 



42 
43 



BEGIN 



X <-K+2; 



00250050 
00250060 
0025007C 



46 
46 
47 
48 
49 



REAL PROCEDURE YCDJ 

REAL If 
BEGIN 



Y«-L + 3 f 6; 

io*q; UjllLIz±2J IN2--2; 



00250080 
00250090 
0Q25Q100 



end; 



00250110 
00250120 
00250130 



50 
51 



IMAX*5497558 13887; lMIN«--5497558 1388 7 ; 
TEMPtlJtIF 0.0 4 1,0 THEN 1 ELSE QJ 
TEMPf21»_g » 1.0 2 10 THEN 1 ELSE Qj 



00250140 
00250150 
00250160 



52 
S3 
54 
55 
56 



TEMP[33* IF 

TEMP[43*IF - 
TEMPC53» IF 



4,314063 * X(l. THEN 1 ELSE OJ 
4,314063 Z 10, [47111 THEN 1 ELSE 
-1. 750-30 > w " THEN 1 ELSE ; 



TEMPC63*- 

TEMPt7)*IF II 
t£MP[ 83 » Ip 1 2 



IF 1,75**30 t 10 THEN ELSE U 

2 INI THEN 1 ELSE OJ 

J YC-3.Q) THEN 1 ELSE OJ 



00250170 
OO250180 
00250190 



00250200 
00250210 
00250220 



• • 



^r 



2 
3 
4 
5 
6 
I 
8 
9 
10 
11 
12 
13 
14 
lb 
16 
,7 
18 
19 
20 
21 
22 
23 
24 
25 
26 



27 
28 
29 

30 
31 
32 
33 
34 
35 
36 
37~ 



TEMPt9]«- IF 
TEMPC10UIF 
TE MP T 11 3»IK 



IN2 > 10 . L9S 39 J THEN 1 ELSE. 0; 
IMAX > " " THEN 1 ELSE o; 
IMiN * (? * 8? THFN 1 FLSF Oj- 



TEMP[123*IF XC3) i Yd, 
TEMP[133* IF XC2) * tl,E43t33 
TEMPM43»TF VO.fll i> 



00250230 
00250240 
Q0 25O25Q- 



4) 



THEN 1 ELSE 
THEN 1 ELSE O; 
"Q" THEN 1 FLSr at 



Q; 



00250260 

00250270 

-QJ025.Q2M. 



TEMP[153*IF YC-1.6) > (10/b) THEN 1 
TEMP[163* IF I2.t<*2»63 * IMAX. [1:33 
TFMPT173+ IF IHAX*EAf>ni £ THEu 



ELSE 0> 
THEN 1 ELSE 
1 ELSE O; 



O; 



TEMPOS]* if IMAX.C9J393 i C90IV 2) THEN I ELSE 01 
TEMPC193*IF "AA» > "ZZ" THEN I ELSE 0; 
TEMPf20UIF "MMM" I tlOO MOD Si? THEN 1 ELSE 01 



00250290 

00250300 

-0O25-034O 



TEMP[2lJ«-IF (12 + 5) * (47-30) THEN 
COMMENT ANSWERS AND OUTPUT* 

FILL ANSC»3 WITH UCTO* QCTO* UCTW 



00250320 
00250330 
002503*10 



1 ELSE O; 



00250350 

00250360 
00250370 



OCTl* 

££11*. 

OCTl, 

0CT1# 
..QCJQx. 



OCTO* OCTO, 
QCTl* OCTO* 
OCTO* QCTl* 



OCTO* 



OCTl* 
OCT0* 
0Q1XL. 



OCTl* 
OCTl# 
Q CTW 



00250380 

00250390 
- QQ25Q AQQ- 



00250410 
00250420 
.00250430 



CVN + 2U 
PN0«-25; 

verify;. 



00250440 
00250450 
00250fl60 



end; 

procedure 

BL&lh 



P26; COMMENT THE RELAT1UNAL OPERATOR (>)# 



BOOLEAN 
REAL 

A» true; 



A'B'C; 

8 + false; 



c» true; ti± 29/2; j» 29/2; k«- 29/1; 



00250470 
00260000 

JLDJtfiJLOJJL 
00260020 
00260030 

, Q Q 260Q4Q . 



A* IF A THEN H>J ELSE 3 ; f EMP[ 1 3*RE ALC A , [ n7 » lj ) ; 

A«-IF C THEN H>J EQV H>J ELSE Bi TEMP [ 2 i «-REAL C A , [ 47 » 1 J 3 ; 

A<-H>„j; TEM PE3l» R F Al LAjl S JlLLL I ) / 



00260050 
00260060 
00260Q7Q 



38 
39 

40 
41 
42 
43 



A*H>J EQV J>h;TEMP£43«-REALCA,U7»UJ; 

A*IF A THEN H + J>K OR H>J ELSE c; T£Mp[5J«-REAL(A.C47li3); 

A» IF B THEN C ELSE H»J>K; TEMPE6 3-REAlC A. [47 t 1 3 ) ; 



00260080 
00260090 

-0_0_2601_Q_Q_ 



A*H+J>K OR h 
A*IF C THEN H 
A»H+K>J AND 



>K ; TEMP[73«-HEALCA.[47«13 )J 

>J ANO H>J ELSE B ; TEmP[8 ]*REAXC A. U7» 1 J )i 

H>K; T E MP[93*Rb A | n ( A t C47»l3)^ 



A* IF C THEN 
A* NOT H>j; 
FILL ANS[*3 



NOT H>K ELSE NOT 



A , C47 » 1 3 J-» 

NOT H>K EL*E NUT 6* UMPC 10]*REAL( A,[47l 1 J > J 
TEMPcll3«-REAL(A,[47U3); 
WITH OCTO* QCTl* QCTO, OCT 1 t QCTOjOCTO, OCTOj. 

OCTO> UCTO' UCTl* UCTW 



00260HO 
00260120 
QQ2601 3.O. 



00260140 
00260150 
00260160 



CVN* U 
PN0»P6; 



00260170 
00260180 
00 260190 . 



45 
46 
47 
18 
49 
50 
51 



VERIFY 

eno; 

PROCEDURE P27; 



COMMENT THE RELATIONAL OPERATOR C*3; 



00260200 
00260210 
00270000 



BEGIN 



BOOLEAN A* B ( 
INTEGER H# 



c; 

4* k ; 



00270010 
00270020 
0Q270030 



52 

53 
54 
55 
56 
B7 



a* true; b* 

A * IF A THE 
A» true; 



false; h«. 20; vi* 20; k* 40; c* true; 

N HXj ELSE C; TEMPE1]* REAL C A.C47I X 3 )^ 



00270040 
00270050 
00270060 



A* IF A THEN 
A* H X j; TE 
A»H/J FQV HX 



HXJ £QV H*J ELSE B; TEMPL2J* REAL < A, [ 47 1 1 3 } ; 
MP C 3 3*- REAL (A); 
j; TfMRUJ* REAL LAxJAlUJM 



00270070 

00270080 
QQ27QQ 90 



A* IF A THEN 
TEMPI53 ♦ RE 
A» I F B TH EN 



H+J*Kx2 OR HtJ ELSE C; 00270100 

AL <A,t«7ll3); 00270110 

A ElSE H ♦ J / K ; TEMPT61 » REAI (A. [4711^1 0027Q120 



h- 



12 



16 
17 



19 
20 



26 



27 
28 



30 



34 
36 
36 

37 " 



39 
40 
41 
42 
43 
44 
45 
46 
47 
48 



49 
50 



51 
52 



55 



A«- 

A«- 

_A_±. 



H + J*K 

true; 

-IF A 



OR H. £45*13 * J. C 4S J 1 j; TEMPC/J*- REAL ( A, I 47 J 1) ) ; 
ThFN bLLj AND HAJ LL.SF C? LEMEJULLt RFAI. (A.r47MJ)j 



A* H ♦ K t J AND H t K; TEmP C93* REAL CA.t47U3); 

A* IF A THEN NOT H/*K ELSE C ; TEMP [ 10 3*REAL( A, £47 \\ 3 >; 

A* NOT H*j; TEMPril3+ HEAL ( A. £ «7 t 11) ; 



0Q2/013Q 
00270140 
0Q'£7Qj5SL 



00270160 
00270170 



A«- IF A THEN H.U7U3 / H 
TEMP[123* REALCA.C47J13); 
A*- NOT TEMPC103 j TEMP[U3; 



A* (TEMPttO] x 
TEMPU43* REAL 
A* "ABCO* * 



x (J + 2) ELSE FALSE; 

T£*"P[133» hEAHAt[47t 13 ); 



00270190 
00270200 
002 70210 



TEMPCU3 MOO TEMPCU3) / (H +( jxH. [45 13 3 )/2 ) ; 00270220 

<A#C47*13); 00270230 

»»« J TEMP£l5]»REAL(A.La7tn); 00270 240 



A «■ "ABCDEF" * "JKLMNP"; TEMPCJ6] * REAL(A,[47 

FILL ANS[*] WITH QCT0# 0CT1> QCTO, 0CT1# QCTl, 

OCTQ, CCTl, OCTOj OCTl* OCTl, OCTO* QCTl, 



cvn* i<; 

PNQ* 27 
V£RJLFJC 



13); 

OCTQ, 



OCTO. 

qct i; 



; 



end; 
procedure 

BEGIN 



P28; COMMENT LOGICAL OPERATOR NUT 



INTEGER 10* IMAX; 
ALPHA AA,AB#AC»AD; 
BOOLEAN T*Fi 



00270250 
00270260 

_ PjQ lZi teZfl. 

00270280 
00270290 

Q027Q 1OJL 

00270310 

3,5,5,2;00280000 

00280010 



BOOLEAN PROCEDURE X(K); 

BOOLEAN K* 
BEGIN 



00280020 
00280030 
00280040 



x «• k and true; 
end; 

IMAx* 1023; AA*"A"; AB»"B"; aC»"C>i ah» *ri"i 



00260050 
00280060 
00280070- 



10 » Qi 



t«-true; f*false; 
temp[1)«-real (not true); 

..TEMPf23»R EA L (NQT EiJJiEli 



00280080 
00280090 
Q Q29 Q1QQ 



TEMPt3]*REAL (NOT 
T£MP£43*REAL (NOT 
TEM PE53+REAL (NOT 



(BOOLEAN 
(BOOLEAN 
X(TRUE)) 



(IMAX))); 

do))); 
_J 



00280110 
00280120 
00260130- 



TEMP[63*-REAL (NOT 
T£MP[73*REAL (NOT 
TEMPfa]»REAL ( N OT 



X(FAlSE)) 
AA < AB) 
A A S AA 1__ 



00280140 

00280150 

0028 0160 



TEMP[93*REAL (NOT AC* AD) ; 

TEMPtl03«-BEAL (NOT AD i AC) 
T EMPril3»REAL(N0T AD > AC) L 



00280170 
00280180 
00280190 



TEMP[123*REAL (NOT AD *AO)J 
TEMPtl33«-REAL (NOT (IF AA = IMAX 
TEMP[143«- REAL (NOT T ANQ F); 



00280200 

00280210 

-Q Q280 220 



THEN TRUE ELSE FALSE)); 



TEMP[15J*RIAL (NOT T OR F3i 
COMMENT **** TEMP£163*REAL CNQT T I mP F) 
TEMPM73* REAL (NOT T E«V F); 



00280230 
00280240 
QQ280 2 5Q 



****CHANGE OCT TO TRUE* 



TEMPC183 ♦ R E AL ( NOT 
TEMP[193«- REAL (NOT T 
FOR 10*1 STEP 1 UNTIL 



COMMENT ANSWERS AND OUTPUT; 

FILL ANS t*3 WITH OCTO* OCTlf 
OCTW OCTOj. QCTI* 



T , 1<»7U3); 

.C46U ]); 

19 QQ TEMPCI03»TE W P[ 103 ,[47U3; 



00260260 
00280270 
00280280 



00280290 
00280300 
00280310 



QCTO* 



OCTO» OCTO, 0CT1* 
OCTO# OCTO* OCT 1 * 
0CT1» OCTO* OCTO* 



00280320 
00280330 
00280340 



QCTO, 
OCTli 
CVN»19) 



0CT1# OCTO* 

PN0»26i VERIFY 



00280350 
00280360 
00280370 



00280380 
00280390 
00280400 



T* 



# • 



r~ 



2 
3 
4 
5 
6 
/ 
8 
9 
10 
11 
12 
U 
14 



|1S 

17 

18 

19 

10 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 ~ 

38 

39 

40 

41 

42 

43 ' 



45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 



end; 
procedure p29; comment the luglcal operator a\u ; 

„.__fl£MN - 

BOOLEAN 

INTEGER 
BOOLEAN 



00200410 

00290000 
-OQ2VQ01.Q- 



At b; 

h»j; 
proceoure 



3ANU(BANUB). 



00240020 
00290030 
0029004 



BOOLEAN BANDB; 
BEGIN 

B AND* BAN D B QR 1HUE ; 



00290050 
00290060 

QQ29QQ7Q 



EN 
INTEGER 

in 



d; 

PROC 
TEGER 



EDURE TWOBAND(TWOB); 

twos ; 



00290080 
00290090 
Q Q290 10Q 



BEGIN 



TWOBAND* TlNUd + 5/ 



end; 



00290U0 

00290120 

.0.0210110.. 



a* true; b* false; h* 14; j* 7; 

A*- TRUE AND FALSE; TEMPC1J* REAL(A.[47«13 ); 
. A±„ TRUE AND NOT TRliEi TEMP[23» RE Al. ( A . [47 1 1 



XL 



00290140 

00290150 

J1LMSUA0- 



A* TRUE AND TRUE AND TRUt; TEMPL33 «• «£ AL C A. C 4 7 « 1 ] ) } 

A* B AND B; TEMP[43* REALC A. [47 » 1] ) J 

.AJt-B-ANH NOT BJ TFMP[53» HtH ( A . [ 4 7JLX1U 



00290170 

00290180 

.0 02.90 W- 



A* A AN 

A«- BAND 

■AJL-BAND 



DBA 

(TRUE 

(A) AND NOT 



*no b; 

) AND 
JU 



TEMP[6]«- REALCA.C47UJ); 
BAND(fALSt); TEMPC73*- RE AL ( A , [47 » 1 3 )'* 
RAND (B)i TFMP[fl]» RE ALC A. [471 1 3 ) ; 



00290200 
00290210 

00290220. 



A* BAND(TRUE) AND 8AND<A) 

A* H + J>TW08ANDCll ) AND H>J 

A±_iJ^J U AND NUT J >H ; T£MP[113» HEAL C A . U ? 1 1 3 ); 



AND NOT A; TEMPC93* RE AL< A . [ 47 J 1 3 3 ; 

> T£wP[103<- KiAL(A»C47llJ)J 



A+ H+J> 
TEMP[12 
A* (TRU 



H AND 
3* RE 
£ AND 



ri>TwO 

AL (A. 
TRUE 



BAND (5) 
£«7I1J); 
OR TRUE) 



AND TW08AND(0)< TWObAND(I); 

AND (B ANH a); „_„__ 



00290230 
00290240 

nr)2gog5n 

00290260 
00290270 
0029Q280-. 



TEMPC133* REAL (A. [47113); 

A«- (H"J'J AND NOT H>J) AND (6AnD(A) OR NOT TKOBAND (3)>H); 
JL£HP[14]» R F A I , C A . t 4 7 : 1 ,1 3 f ._ , 



A* (TRUE AND FALSE) AND (H 

TWOBAND(O)); TEMP [153* RE 

.A * H . U 5t33> H«U5 t?3 AND 4 



00290290 
00290300 
002V03-1XL 



+ J>H) AND (8ANDCA) AND NOT H< 

AL(A.[47«13); 

. U5» 3 3 / J .C 4 5«13J , 



00290320 
00290330 
Q(1g90?an 



TEMP[163«- REALCA. £47113); 
A«-H.t45l33> THOBAN0C5) AND 
.I EMPC 173* RFAL(A.[47H 3)3 



NOT J,U5»n>0 ; 



00290350 
00290360 
0029Q370. 



A*H, [45*13 * AND J f [45:3J>0 AND 
FILL ANS[*3 WITH OcTO* QCTQ* OcTl> 
QCTO, 0CT1* QCTl, 



Si TEMPU63* 
OCTO* 0CT0# 
QCTO* QCT1* 



REAL(A,[47»1 3); 
OCTO# 0CT1# 
Q CTQj> 



00290380 
00290390 
00290400 



QCTO> OCTO OCTl> OCTO' OCTO; 



CVN* 18 
PNQ*- 2 9 



00290410 
00290420 
QQ 2904 3JL 



VERIFY 

end; 
proceoure p30; comment the lqqlcai operator or; 



00290440 
002904S0 
00300000 



1* 



BEGIN 



BOOLEAN 
INTEGER 



a»b; 



00300010 
00300020 
00300Q30 



BOOLEAN 
BOOLEAN 
BEGIN 



proceoure 
parai; 



ONEOR (PaRAI); 



003000 40 
00300050 
00300060 



ONEOR* 

INTEGER 

INTEGER 



TRUE AND PARA 
PROCEDURE TW 
PARA2; 



i;en.d; 

OUR (PARA2); 



0Q300070 
00300080 
0,0300090 



BEGIN 
TWQQR+ 

a»true 



PARA2+2 ; end; 

; B» FALSE ; M* 14 ; J* 7; 



00300100 
00300110 
0Q3Q0120 



>T 






2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

IS 

16 

17 

18 

19 

20 _ 

21 

22 



26 
27 



28 

29 

30 

31 ~ 

32 

33 

34 

35 

36 

37 ~ 

38 



39 

40 



45 
46 



• 



48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



A* TRUE OR FALSE; TEMPCl] * HEAL (A); 
A<-TR(JE OR NOT TRUE; TEMP [ 2 J *REaL ( A , [ 47 i 1 3 ) ; 
A* TRUE AND TRUE OH TJiUjEj TEMPC33+ RFAi , (A) 



A* 
A* 
A* 



B 
A 

A. 



OH B ; TEMP[43* REAL CA.U7U3); 

OR NOT B ; TEMP C5J* REAL (A. [47113); 

AND BOflB) TEMP E 63> REAL C A . C 47 » 1 1 i I 



00300130 
00300140 

-fljty.iifloj5fi. 



A <■ ONEOR (A) OR 
A ♦ ONEUR (A) OR 
A» ONEOR (ti) ANn 



A»TRU&J 



ONEOR (B)/ TEMP[7)«- R£At C A , [ 47 « 1 J )/ 
NOT QNEQR (A)/ TEMP C J*RE AL( A . [ 47 I lj ) ; 
UNEOR (A) OR ONFUHfR); 



TEMP[93* REAL (A.U7J13); 
A* H+J<TW0fiR(i) OR H<UJ TEMPtlOl* REAL (A); 
A+±L- JXj OB NOT H>Ji TEMP[113» REAL LA^LMl±lAl 



00300160 
00300170 
-OHlmUAiL 
00300190 
00300200 



ANC H>J OR J<H ; 

AND TRUE OR TRUE) 

RFAI, Lk*JJLUJJLLi 



TEMP [123 *• REAL 
UR CB OR B)> 



A*- H + J>H 

A*- (TRUE 
.-.TE.MPC 13 J 

A* (H-J X J OR NOT H>J) OH (ONEOR (A) 

TW00R(2)); TEMP[i«3«- REAL CA. [47:13); 

At. (TRUE OR FALSr } A JJO Lfa ♦ J > H) nR C 

TEMP[153«- REAL C A. C47« 13 )# 

A* H. [45:33 > H. [45*23 OR J. [45*33 X J. [45*13; 
_TEHPri63» RFAL CA, f47M 3 3/ 



(A); 



00300220 
00300230 
00300240 



OR NOT H > 



h > j ) ; 



NOT J. t45*j3>0; 
OR 9 1 



A* H, [45»33> TWQOR(l) OR 
TEMPC173* REALCA, [47113); 

*» H.fMlt»fl AND J.[fl5M1>0 
TEMP[18 3«. REAL (A. [47: 13); 

FILL ANS[*3 WITH QCT1# CJCT1* QC.T1, QCTO'QCU* OCTO* OCU, OC 
QrTO, Q r TDf QrTO> QrT u UM i, E L d J I QXJ- U "c T 



00300250 
00300260 

- aaiflozn). 

00300280 
00300290 

Qnlflfljflfl. 

00300310 
00300320 

-afljL0Q33a 

00300340 

00300350 
003003ft 



3£fl.__ 



0CT1# 
CVN* 18 
-E N D *. 1 



CCTH 



00300370 
Tl*00300380 
U_a&3LfljCUftjO_ 



VE.RIFY 

end; 

.LlQCEDyRE P2XL 



00300400 
00300410 
0Q304Ht2fl~ 



BEGIN 



CO GENT LOGICAL OPERATOR IMP 



INTEGER I0»I1»IN1#I2»IN2,IMAx»1MIn; 
. REAL r*rr»rrr; 

ALPHA AA,AB; 

BOOLEAN BO*Bi; 

REAL PROCEDURE XCK); 



00300430 
00300440 

3^5,5^; 00 U.QJ3..CJL 
00310010 
00310020 

.QMJQOlfl 



REAL 



k; 

BEGIN 



00310040 
00310050 
003 1006 



X«-KU23/10)i 



end; 

INTEGER PROCEDURE 
INTEGER L; 



00310070 
00310080 
00310090 



YCL Ji 



BEGIN 



00310100 
00310110 
00310120 



Y* L*5* 



end; 



BOOLEAN PROCEDURE Z(M); 
BOOLEAN Ml 

BEGIN 



00310130 
00310140 
00310150 



10*0; 



2*M AND 

end; v* 

IUH IN1*»H 



true; 

12*2; IN2*-2; 



00310160 
00310170 
00310180 



IMAX*1023; I^IN*-1023; 
R*H/10; RR*22/10; RRR*33/lO; 

aa»"a"; ab* w b m ; 



00310190 

00310200 
00310210 



bo*false; bi«-true; 
temp[1]*real(true imp false); 

TEMPf 13* T£MP[ 13.C47I13; 



00310220 
00310230 
00310240 



00310250 
00310260 
00310270 



in* 



-^ 



4 

5 

6 

7 

8 

9 

10 

11 I 

12 

13 

14 I 

15 

16 

,7< 

18 

19 

20 ( 

21 

22 

23 1 

24 

25 

26 < 

27 

28 

29 ( 

30 

31 

32 % 

33 

34 

35 % 

36 

37 

38 | 

39 

40 

41 i 

42 
43 

44 f 
45 



46 

47 

48 

49 

50 I 

51 

52 

63< 

54 

55 

56 ' 

5?, 



e 



N 

2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 

u 

116 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 ~ 

32 

33 

34 

36 

36 

37 " 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 



TEMP 
TEMP 
TEMP 



TEMP 
TEMP 
TEMP 



TEMP 
TEMP 

TEMP 



23*REAL (FALSE IMP TKuE); 

23* TEMPC 23,U7l U; 
3]*- REAL (FALSE IMP FALSE); 



00310280 
00310290 
Q Q31 3Q Q. 



3]* TEMPC 33 • t A7 » Hi 
4)* REAL (TRUE IMP TRuE)j 
043* TFMPC A3 .CA71 til 



00310310 
00310320 
00310320. 



5)* REAL (TRUE IMP bl)i 
053* TEMPC053.Ca7{13; 
6]*RFAL CF AI.Sp TMP ZUMULlll 



00310340 
00310350 
003*0360 



TEMP 

TEMP 

JXMP_ 



063* TEMPC 63.U7U3J 

73*REAL (FALSE IMP INI < IN2)J 

073* TFMPC 73. [471111 



00310370 
00310360 
00310390 



TEMP 
TEMP 
I£MP_ 



83* REAL(TRUE IMP (IF I2<3 THEN TRUE E LSE FALSE)); 

83* TEMPC 83. [47113* 
93* REAL (FALSE IMP flU ULE AN (MUSJLLlUJJJ 



00310400 

00310410 

-fliU 10620 



TEMP 
TEMP 
.T£NP_ 



93* TEMPC 93.C47U3; 
103«-REAL (Bl IMP BODLEAN(il)); 
10 3* TEMPC103.C47I11I 



00310430 
00310440 
Qn31 Qfl 50.. 



TEMP 
TEMP 
TEMP. 



113* REAL (BO IMP Z(FALSE)); 
113* TEMPL113.C47H3; 
123* REAL (BU IMP B i Afi)> 



TEMP 
TEMP 
TEMp 



123* TEMPC123 ,C47!13; 

133* REAL (Bl IMP BO EQV 81); 

143* REAL(R1 TMP RQQLEAM t IM AX . t 47 I 1 3 l) i 



00310460 
00310470 

oo3ioaeo- 



00310490 
00310500 
QQ31Q510- 



TEMP 

TEMP 

JLEJMP 



143 
153 

.L5J. 



* TEMPC14J.C47J1]; 

* REAL CZ(TRUE) IMP 80GLEAN (Y(-4)))j 
» TE MP C1 53 .C47.13J 



00310520 

00310530 

J3JQ2JJL&Afl_ 



TEMP 
TEMP 
TEMP 



163*R£AL (Z(FALSE) IMP (RR < XC1>>); 

163* TEMPC163.C47I13; 

173*REA L (ZtFALSE) IMP 80 OR BOOLEAN USLLU 



00310550 
00310560 
00 310570 



TEMP 
TEMP 

TEMP 



173 
163 

131 



* TEMPCl 

* REAL ( 

* T E MP Cl 



73 # c47«n; 

Z(TRUE) IMP BOGLEArv ( IMAX . C 47 J 1 3 ) ) ; 
P 3 .C 47: 13 * 



00310560 
00310590 
00310600 



TEMP 
TEMP 
TEMP 



193* REAL (( 80 IMP B(jQLEAN( I Q ) ) IMP (NOT Bl IMP BO)); 00310610 
203* REAL (12 < II IMP NOT Bl); 00310620 
203* TFMP[203.C/l7ll3> nn3l063n 



TEMP 
TEMP 
TEMP 



213* REAL ((RRR<RR) IMP BOOLEAN ( JM AX , [ 39 ; 1 3 ) ) > 

213* TEMPC21 J.C47U3; 

223* REAL (BO AND BOOLEAN (10) I^F NUT Bl OR 80); 



00310640 

00310650 

. 0Q31 6 6JL 



TEMP 
TEMP 
TEMP 



223 *TEMPC221 [47*13; 

233* REAL (Bl'lMP BOOLEAN ( IM IN , C4 1 » 1 3 ) IMP NOT BO); 

233* TEMPC233.C47I13; 



00310670 
00310660 
QQ 3 1 069 Q 



TEMP 

TEMP 



COMMENT ANSWERS 



243* REAL ( BOOLEAN ( IO.C45J13) IMP BO. C 40 S 1 J ) ; 
243* TEMPC243.C4/I13; 

and output; 



00310700 
00310710 
0Q31072Q 



FILL ANSC*3 WITH OCTO# QCTU QCri, 
0CT1# 0CT1* 0CT1# 
OCTW OCTl* OCTl* 



00310730 
00310740 
00310750 



OCT 
OCT 
OCT 



it 0CT1# 
0* OCTl# 
1» OCTl* 



0CT1# 
OCTj* 
OCTW 



00310760 
00310770 
00310760 



so 

51 
52 
53 
S4 
55 
56 



OCT 



1* 0CT1# 
0CT1* OC 
CVN*25; 



OCTl* 
Tt* OCTl, 



00310790 
00310800 
00310810 



PN0*3i; 
VERIFY 



end; 



00310820 
00310830 
Q Q310 84Q 



PROCEDU 
BEGIN 



RE P32K0MMENT 3.5.5.2 |«v; 
BOOLEAN AiBfC/D/ = 



oo3aoooo 

00320010 
Q032Q020 



k 



10 

11 

12 
13 
14 
IS 
16 
17 
18 
19 
20 
21 



a«-true; B*FAist; otrue/ d«-false; 

TEMPC1J «-IF A EQV C THEN 1 ELSE 0; 
■TE MP [ 2 J «• I F A FQ*/ D Th LN 1 EL S E P , 



TEMPC3] * IF B EOV C THEN 1 ELSE Oj 
TEMP[43 * IF B EOV D THEN 1 ELSE 0* 
JEMPC 53 MFP EQVt A E QV CB EflV Q) TH E N 



1 ELSE o; 



00^20030 
00320040 
_0JQL32flJQ5XL 
00320060 
00320070 



TEMP[63«- IF 
FILL AnS[*3 
cvn <-6; PNO 



CB OR C) EQV A THEN 1 
WITH GCTl* 8CT0* OCTC, 
<• 32; VERIFY 



else a; 

OCTU OCTl* 



0CT1 



00320090 
00320100 
.OfiJ .20110.. 



end; 
proceo 



URE P33; COMMENT SIMPLE DESIGNATION 
NCV 13. 1962. KM.; 



EXPRESSION 3,6.3.1 



00320120 
00330000 



BEGIN 00330020 

LABEL A1#A2>A3#A4»AS*A6' A?»A11» a22> A33* A34'A«4#A45» A46> 00330030 

kH3-tAJLU£J »C2,>CjfC4>C5>C6fC7iC6<C¥,Cl0»cn»C12»C13jCl*» - £.023 5XL4Q 

C15#C16>Cl7*Cl8*Cl9*G20»c2l*c22*c23#c2a*e25»C26# 00330050 

C27»C28> Ol»0a#03-*04#05»06; 00330060 

— -LABEL B-t*ag.B3.RA.BS.ft.ft»lii7.Hm QXUaoazO- 



REAL 

INTEGER 

BOOLFAN 



a»b; 
h#c; 

JLtiLL 



SWITCH SIMUESI0«-A1#A2*A3#A4*A5#A6#A7; 
SWITCH EXTRA * Bl» B2* B3aB4* B5>B6* 87* 88; 
SWlTf.H DFSIGSTAT FORWARD; 



00330080 
00330090 

00 3 3 100, 



00330110 
00330120 



22 

23 

24 

2S 

26 

27 

28 

29 

30 

31 ~ 

32 

33 

34 

35 

36 

37 "" 



INTEGER PROCEDURE a55Ca55A); INTEGER AbiA; FORWARD; 
SWITCH DESIGSTAT* All#(A22)# EXTRA CA+b], IF D THEN A33 

FLSE Aja, TF [) THFin EXTRA r?t(3 MQn. 



INTEGER PROCEDURE 
INTEGER A55A ; 

BEGIN 



ELSE OESIGSTaT [73* IF D THEN 
E THEN a<»5 ELSE Mb* C26* 

EXTRA C(A55(3)+H»[47«13 + ENTlER 



-2JJL 



A44 ELSE IF 
(A3)3; 



00330140 

00330150 

.0033 160. 



A55(A5bA); 



00330170 
00330180 
00330 190 



A* 



end; 

3/2; B» 



A55* A55A ♦ H 
7/Ui p» TRUE ; E»TRUfc.; H«-77 i Q+ It 



00330200 
00330210 
003302 20 



Al« 

Dl« 



go to ai; tenpcc ]♦■ o; 

TEMP[C3 * 2; O C + i; 
GO Tp (A2); TEMP[C3«- 



A2J TEMP[C3 «• 3K* C + i; 
02* GO To SIMDESIGU + 7-83; 
A3I TEMP[C3 » 4;c» C + l; 



c* c+i; go to oi; 
0; c» c + i; go tj 02; 



00330230 
00330240 
00330250 



00330260 
00330270 
00330280 



TEMPCC3* 0; C* c+i; GO TO 03; 



00330290 
00330300 
00330310 



45 
46 
47 
48 



49 
50 
51 
52 
53 
54 
55 
56 

5!. 



03» 
A4t 
D4» 



GO To SIMDESIGC B + B + B'A); TEMpCCJ* 0; 

TEMP[C3* 5; c<- c + i; 

GO TO SIMDLSIG C H.U5.331; TEMPCCJ* 0; C» C + i; 



c*- c+i; GO TO 04; 

GO TO D5; 



A5I TEMPCC3 «■ ** C* C + U 
D5» GO TO SIMDESIG C A55<5)3; 
TEMPCC3* 7; c* C + l J 



00330320 
00330330 
00330340 



TEMPCC3* o; c* c+i; go to d6; 



_AAL 



-ftffl^ 't-iirLU' rt i* i*** ■■..■■■■ ■ ■ ■ ■ ■■..■■ ._._■ 

D6J GO TO SIMDESIG CCH, [45:33 x A3* B + A55("3)3; TEMP[C3*0; 

c*c+i; 

A7t GO TO ( IF THEN CJ ElSE C2); TEMP[C3»0; Cj-C+WGQ TO C3; 



00330350 
00330360 
00330370 
00330380 
00330390 
00330400 



Cl» TEMPCC3*8; C*C+i; GO TQ C3I 00330410 

C2I TEMPCC3*88;C*C+l; 00330420 

C3« 00 TO (IF THEN (C4) ELSE (C53); TEMPJCUO; C»C+UQQ TO C6J 00330430 



C4I TEMP[C3*9; c«-c + i; GO TO C6; 

C5» TEMPCC3«-99;C*C + 1; 

C6« GO TO (IF B THEN UF E THEin 



c7 else c8) else c«)j tempcc3*o; 



00330440 
00330450 
00330460 



c* c+i; go to cio; 
C7I tempcc3*io; c*c+i; so TO cio ; 

Xli TEMPfCi* 1X301 C<-C + ll GO TO Cio; 



00330470 
00330480 
003 3 0A9 Q 



^r 



19 

20 

21 

!2 

23 

24 

25 

26 

27 

28 

29 

30 

31 "" 

32 

33 

34 

35 

36 



C95 TEMP[C]*lli; C*C+li 

cio : e«-false; gc to c if d then (IF E THEN C12 else Cll 

C IF F. THEN C13 F l ^ E: flF F THfN CM EjJ a x CI S )) ) i 



) ELSE 



TEMPtc]*o; c*c+i; go to cio; 

Cm TEMPCC3MU C*C + i; GO TO Cl6; 
C 12» TEMP rC]« -t12; OCtli fiO TO C1AJ 



00330500 
00330510 



C13I TEMP[C]*113;c*C+i; GO TU Cl6; 
C14I TEMP[C]*114; c*c+i; GO TO C16; 
-C151 TEMPfCJ*-! 15/ C»CtW 



00330530 

00330540 

_QXLiaQ550 



C16J GO TO (IF THEN DESIGSTATCB 

O c+i; GO TO CI 6 J 
A1U TEMPCC3»12JC»C*U GO TO C18J 



+ B -A -A3 ELSE C1?);TEMP[C]*oJ 



00330560 
00330570 
Q3 3Q 5flJl. 



C17I TEMP[C3«-12i; c«-c + i; 
C18J GO TO (IF THEN C1F THEi\l OESIGStAT Ch . C 45 * 2 ]JEL S E 
C 1 9 ) ELSE C_20lj TEMP[CJ*q; t»C + i; GO TC C2jj 



00330590 
00330600 
00330610 



A22» 
C19t 

C20I 



C2H 



TEMPtC3*13; c*c+i; GO TO C21; 
TEMP[C3*l3i; c*c<n; GO TO C2i; 
TEMP[C 3 »U2; c»c»i; 



00330620 

003J0630 

-OCJ 30640 , 



GO TO (IF D THEN (IF E THEN C22 ELSE DE5IGSTAT tAS5(2)3) ElSE~ 
(IF E THEN C23 ELSE (IF E THEN C24 ELSE C25))}; 
TE MPCC3-0; £±JLtii GO TO C26, 



00330650 

00330660 

_00_3ig^7J3_ 



B3« TEMP[C3*H; C4-C + 1 ; GO TO C26; 
C22» TEMP[C3*Ui; C«*C + i; GO TO C26; 
C23* TEMPrC3»142; C. + C.+ H r,Q TO C26J 



00330680 
00330690 

00330700. 



C24» TEMPCC3* 1«3; OC + U GO TO C26; 

C25! TEMP[C3 ♦• 144; C*C+i; 

C26( GO T p DESlGSTATCH.[42?63x(A+B) - A^5( 37 )J 



00330710 
00330720 
Qn33Q7^ q 



TEMP[C3*0; C*C+i; GO TO C2?; 
A33» TEMP[C3*15; C«-C + W GO TO C27j 
A341 TEMP[C3«-151J C*C+l; 



00330740 
00330750 
00330760 



C27! GO TO EXTRA [53; TEMP[CJ*-0; 
B5I TEMP[C3*16j C*C+i; GO TO C2b; 
A48» TEMP[C3»16i; C»C+1* 



OC + U GO TO C?8. 



00330770 
00330780 
00330790 



C28« GO TO DESISSTAT[83I TEMP[C]*0; O C+U 
B6» TEMP[C3* 17; GO TO Ai»7j 

A47t BJJ B2I B4I B8> B7» A44U45I A46: 



GO TO A47; 



00330800 
00330810 
00330820 



00330830 
00330840 
00330850 



FILL ANS [*] 



CVN«-16; 
PN0«-33; 
VERIFY 



WITH UCT2* UCT3* GCT4> 0CT5* 0CT6, GCT7, 00330860 

OCTlQ, Utril»0CT12# UC1'13> UCT14, 00330870 

0CT1S* QCT16, LCTU* UCT20j 0CT2W 00330880 



end; 
procedure p34; 



00330890 
00330900 
00330910 



BEGIN 



COMMENT GENERAL DESIGNATION 
NOV 15 1962. KM.; 



tXPHESSlON 3.6.3.2 



00330920 
00340000 
00340010 



LABEL XI, X2, X3» X4, Xb, X6, X47* Yj, Y2, 
Y7, Y8* Y9, Y10, Y 1 W YIP, Y 1 3, via. 



INTEGER 
RE AL 



¥16* Yi9, Y20; 

h,k; 

A /B' C j 



Y3, Y4, Y5, Y6# 
Y | 5j* Y16/ Y l7> 



00340020 
00340030 

-0.Q34Q040 



BOOLEAN Bflt 

SWITCH GENERAL FORWARD 
SWITCH fiEN-TOHMftRP I 



00340050 
00340060 
00 34Q07Q 



SWITCH GENDE51G FQRMHD; 
REAL PROCEDURE FuNCAAA); REAL AAA; KQRwARQ> 
SWITCH GFNDESTG *■ fiFNTA+BJ/ IF n THEN <;£\ERAl fw/91 



00340080 
00340090 
Q Q 34Q 10Q 



ELSE 



SWITCH GEN* 



GENCC+13* GEN0ESIG[43# GENCH. t 46 ! 2 3 3 ; 

GENERAL13 MOD 23, GENERALCFUN(17/4)3# 

flFMiHALtfA+B xr H/S) *{ 3 HIV 21)11 



00340110 
OO340120 
00340130 



00 340 HO 
00340J50 
Q0340160 



3 
4 
M 

6 
7 

3 
10 

"( 

12 

13 

14 < 

15 

16 

iH 

18 
19 
20 4 

21 

22 

23 ^ 

24 

25 

26 ^ 

27 

28 

29 ^ 

30 

31 

32 I 

33 

34 

«l 

36 
37 

38 ^ 

39 

40 

«-l 
42 

43 

44 % 

45 

46 

47 I 

48 

49 

50 % 

51 

52 

53 K 

54 

55 

561 



>r 



to 
11 

12 
13 
14 
15 
16 
17 
18 
19 



20 
21 



22 
23 
24 
26 
26 
27 



28 
29 

30 
31 
32 
33 

34 

35 

36 

37 " 

38 

39 

40 

41 

42 

43 ~ 



45 
46 
47 
48 



49 
50 



SI 
52 
53 
54 

56 
56 



SWITCH GENERAL «- Xl> X2> 

REAL PROCEDURE rON(AAA); 

-ILEAL AAA; 



xj» X4, x5> xe; 



BEGIN 

end; 



003*40170 
00340180 



FUN* A A A/ 2i 



H<-7; A*- 3/4; B«- 7/20; 

GO TD IF D THEN Yl ELSE Y2; 

Yll TEM PTK]- 1> K<-K+t; GO 



c* 9/10; d* true; e* false; k* i; 

TEMP[K]«-REAL(D); K*K+i; GO TO Y3; 

TU Y3; _ _____ 



00340200 
00340210 
.nn3ao??n 



00340230 
00340240 

.JlQliLfl25iL 



Y2« T-EMPtKJ* HI K*K4i; 

Y3» GO TO IF E THEN Y4 ELSE GENDESIG-A3; TEMf CKJ*0 JK*K*ll 
__«_! TF MPCKI*. 7\i K» K + U fin TQ Y S; 



GO TO Y5; 



XI' TEMP[K]«- 2 
Y5* GO TO IF D 

G_CL_in Y7? 



> k«-k + i; 

then gEnoesig[A+i] 



00340260 
00340270 
..OOJ 4. ,2 BO- 



ELSE Y6; 7tMPCKJ*0; K«-K + ll 



Y7* 



X4: temp[ki*3 ; k«-k+i; go to y?; 
Y6« temp[K]* si; k*k+i; 

GO TO IF D THEN (IF E THEN Y8 ELSE 



Y9) ELSE Ylol TEMPCK3*0i K*K«-i; 



GO TO Yl i; 

Y8« TEMPCK]«-4i; K* K + l; GO TD YUl 
Y9» TEMP[K3»4; K<- K+JJ GO TO Y ll; 



00340290 
00340300 

Qjaiiua34Ji 

00340320 
00340330 
003 40340 



yioi tehpck]«-42i k* k+i; 

Ylll GO TO IF E THEN Yl2 £LS£ IF E 

tempck]»q; k»k»i; go to yis; 



then vn else via; 



Y 12 : 
Y 13: 

_Y_L4.L 
Y15J 



__„-_5_L 



TEMP[K]«-5i; 
TEMp[K3*52i 
TEMP_K3«-5 ; 



K4-K + U GO TU U5> 
K*-K + l; GO TO Y 15; 



00340350 
00340360 
_00J«0 3Z0 
00340380 
00340390 
00340400 



00340410 
00340420 
JMMQ.IL3SL 



GO To IF E THEN GENERALE53 ELSE IF E THEN GENERAL^ ELSE 00340440 
GEN0ESIG[3]; TEMPtK3«-0; K«-K+U GO TO Y16; 00*40450 

TEM P rK3»61i K»K+i; GO TO Yl6j 00340460 



X6» TEMP[K3«"62; K+K+i; GO TO Yi6; 
X3I TEMP[K]«-6 / K«-K+i; 
Y 16 J D«- FALSf; GO T Q IF g TJHp (IF E THEN Y 17 LLSE Yl8> _LS E 



CIF D THEN Yl9 ELSE Y20) 
TEMP[K3<-0 ; GO TO X47I 

Y17 » TEMP [K ]»7i; GO TO X47I 

Y18! TEMPCK3«-72; GO TO X47; 

Y19J TEMP[K]4-73; GU TO X47. 

Y 20t TEMPCK3» 74; GO TO X47; 



ELSE GEN0ESIG[H,C46I23 ^131 



If E 



00340470 

00340480 
THEN 0034 0490 



00340500 
00340510 
00340520 



X2» 
X47* 



TEMP[K3«-7; 



00340530 
00340540 
3 405.50, 



F ILL ANS C»3 WITH QCT1, QC12, QCT3, QCT4, QCT5, QCT6, QCT7; 



00340560 
00340570 
00340580 



CVN«- 7; 
PNO* 34; 
VERIFY 



00340590 
00340600 
00340610 



end; 
procedure p35i 



BEGIN 



COMMENT SUBSCRIPT EXPRESSION QF 
3.6.4. NOV. 15 1962* KMj 



A SWITCH DESIGNATOR 



00340620 
003 50000 
00350010 



LABEL Xl# X2> X3» X4» X5> X6» 
P8, P9, P10» PI 1 > P44; 



F 1* P2* P3* P4f P5' P6* P7* 



REAL A*B#CI BOOLEAN K»L* 

INTEGER F*G*H#q; 

SWITCH SUBS* X1*X2,X3»X«»X5> X6 / 



00350020 
00350030 
003500 40 



INTEGER PROCEDURE SUBSV AL(SW ICHV AL ) I 
INTEGER SWICHVALJ 
BEGIN 



00350050 
00350060 
0Q350Q7Q 



A*2I 



SUBSVAL*SWICHVAL .♦ U 
END ; 

8*4/3; Q 2/17 F*77i G» 55j H» 211 K» TRUE* ti»U 



00350080 
00350090 
00350100 
00350110 
00350120 
00350130 



39 

40 

4, ( 

42 

43 

«< 

45 

46 

47 

46 

49 

50 ' 

51 

52 

53 I 

54 

55 

56 i 

57 



i*- false.; 

<iO TO IF K OR L THEN SUBSC 2*C -CA+B)] ELSE * \i TEMR[Q]«-0; 
I Q + G-M ; GO TO P2; 


W 

00350140 
00350150 
00350160 ) 


6 . XX t TEMPCQJ*i; Q*Q + l; GO 10 P2> 

2 pu TEMP[Q3«-n;a«-o+i; G o ro P3; 

3 P2» GO TO IF L THEN P3 ELSE SUBSt (5UBSVALC3) MQO A) + A3! 


00350170 

00350180 2 

00350190 3 


« q*q+i; GO TO P4; 

5 P3« temp[Q]*2i;g«-q+i; go ro p<*; 

• X2» temp[Q]*2; o*q+i; 


00350200 4 
00350210 5 
00350220 6 


' P4«G0 TO IF K THEN SUbS["a6" MOD "A" + H, C4J J2 ] 3 ELSE P5i 

8 TEMPC<3J«-0 ; Q4.Q+1; GO TO P6l 

9 P5* T£MPtQ]*0 ; G*Q+ll GO TO P6> 


00350230 7 
00350240 8 
00350250 3 


10 X3* TEMP[Q3«"3; 0*Q + U GO TO P6> 

11 P6I GO TO IF K AND NOT L THEN SuBS [" A"-SUbSV AL C 12 ) 3 ELSE P7; 

12 TEMP[Q]*0 ; C*-G+i; GO TO Pd> 


00350260 10 
00350270 " 
003502R0 12 


,3 i P7I TEMP[Q3*4i; G«-G + i; GO TO P8i 

14 X4J TEMPCQJ <• 41 Q*Q+1; 

•« P8» GO TO IF L THEN P9 ELSE SUBS (H. C<*2 J 63 + U-A)* 10) + 43; 


00350290 13 
00350300 14 
00350310 ,5 


16 TEMPCQ] * ; q«-q + i; GO TO Pio; 

17 P9: TEMP[Q3«- 5i; Q*8+l* GO TO Hio; 
,8 ysi TFMP[Qi«. sj (34.4+1 ; 


00350320 16 
00350330 17 
00350340 18 


19 PlO;GO TO IF L THEN P{l ELSE SUBSCSUBSV ALC A . [ 45 » 33 ) + 33 i 

20 TEMP[Q3*0 ; GO TO P<U; 

21 Ptil TEMPTQl* 611 GO TO PtlUi 


00350350 19 
00350360 20 
003^0^70 21 


22 X6J TEMP[.Q3* 6 ; 

23 p 4 4 ; 

2< FILL ANS [*3 WITH OCTt* 0CT2, OCTj. 0CT4, UCT5* 0cT6 ; 


00350380 22 
00350390 23 
00350400 2 < 


» CVN+-6 ; 
26 PN0*-35; 
» VERIFY 


00350410 25 
00350420 26 
00350430 27 


28 end; 

» procedure p36; comment compound statement; 

30 begin label l 1 *l2,l3*l 4,l5*l6; 


00350440 2a 
00360000 29 

00360010 30 


31 BEGIN COMMENT DUMMY STATEMENT TEMPCl3<-6 END* EnO/* 

32 BEGIN END; 

33 BEGIN 


00360020 31 
00360030 32 
00360040 33 


34 BEGIN BEGIN BEGIN TEMPC23 <■ 2 END END END; 

35 TEMPC33 *-3;G0 TO Li; 

36 L2*TEMP[53 + TEMP[4];gU TO Li; 


0036005Q 34 
00360060 35 
00360070 3S 


37 BEGIN 

38 LI* TEMPC43 * TFMPC33;G0 TO L2; 

39 L3JEN0 


00360080 37 
00360090 38 
00360100 39 


40 end; 

4 ' BEGIN 

42 G0 TO Lti ; 1 5: RO TO L6J 


00360H0 40 
00360120 41 
00360130 42 


43 BEGIN 

L4» TEMPC63 * 6;G0 TO L5 
46 END J 


00360140 43 
00360150 44 
00360},60 45 


46 L6IEND; 

47 , FILL ANS[*3 WITH OCTO* OCT^* 0CT3, 0CT3* 0CT3, 0CT6; 
<■ CVN 4- 6; PNO * 36; VERIFY 


00360170 * 
00360180 « 
00360190 *« 


49 end; 

* procedure p37; comment 4,1 block* 5,0,2 declaration* c , c ,2,* 11*19-62* 

51 BEGIN INTEGER 11* 12* 13; REAL Hi' R2' R3j BOOLEAN 81* 82* B3; 


0036020C 49 
00370000 so 
00370010 s, 


s 2 ARRAY Altl»33» AgC H 3* l * 33 ' A 3C 1 » 3* 1 * 3* 1 : 33 * LABEL Ll* L2* L3; 
» Ll'Bl ♦ B2 * B3 «• TRUE J Rl «■ W R2 ♦ 2} R3 ♦■ 3; 
54 FOR 11 «■ 1 STEP 1 UNTIL 3 DO 


00370020 " 
00370030 53 
00370040 54 


» L2IBEGIN AUI13 * III FOR 12 ♦ 1 STEP 1 UNTIL 3 00 

* BEGIN A2CI1*I23 * 11*121 FOR 13*1 STEP 1 UNTIL 3 DO 

? A3CII#I2M3] * A2tIlM23 + 131 


00370050 5 S 
00370060 56 
00370070 4 



h 



2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 



\ 17 

18 

19 
) 20 

21 

22 
> 23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 "" 



i 38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 



49 
i SO 
51 
52 
53 
54 



55 



t 



LI..*- 



L3»EN0 

end; 

\i 12 *■ ? 



f 13 t 3; COMM ENT INITIALIZATION ODNF; 



end; 



BEGIN COMMENT RE-DECL AHaT ION OF LABEL AS BOOLEAN VARlABU 
BOOLEAN Li; LI «■ BU IF LI THEN TEMPCU * I 



OG370080 
00370090 
Qn37oinn 



00370110 
00370120 
0037013 



BEGIN COMMENT gSf OF GLOBAL VARIABLES AND HE-DEClAKAT I ON OF AN 00370140 
ARRAY AS A LABELS LABEL A3#Li; 00370150 

IF Rl < R2 THEN SO TO LI ELSE GG 1U A3 ; ___ 00 3 70160 



L1ITEMPC23 «• R3; 00370170 

A3IEND; 00370180 

BEG IN COMMENT SWITCH DECLARATIONS; LABEL Ll> L2» L3; SWITCH SW10Q3 70190 

«■ Ll* L2* L3; GO TO Swl[2J; GO TO Li; L2S TEMP[33 «■ 64} 003>"0200 

LU L3« END; 00370210 

BEGIN COMMENT NESTFD RE'UECL aR AT 1 ,\ S ; INT j .>Sf R 12 L JULjL 11 i_ _ _ QO 3 7 2. 2 

BEGIN INTEGER III II ♦ 12 + 1; 00"370230 
BEGIN INTEGER 12* 12 «■ II Ml 00370240 
- BEGIN INTEGER I1J II » 12 jjj T EMPER <• T1 rani 0_gj7025fl 



eno; 



END! TEMPC6] ♦ II 
TEMPE71 4- T£ 



00370260 
00370270 

ooiL&zaa. 

00370290 
00370300 



END; TEMP[83 ♦ 12 ; TEMPC9] ♦ U ; 

BEGIN COMMENT SP0T-CHEC$ OF ARRAY VALUES; ARRAY B1CI1H3J. 

— B2CTHT3M1U33> H3f I I » T3» II U3 t 1 1 1 131 I TNTrr.FH bi.p2.b3i oilTJ uIfl 

FOR Rl «■ 1 STEP 1 UNTIL 3 00 00370320 

BEGIN BlCRl] «• Al t«l 3> FOR Kg* 1 STEP 1 UNTIL 3 00 00370330 

-BE GIN B 2rR1»R2l t A?rHi. fi?i; F or R3 » i stfp i l u vXIL np37 Q?4Q 



£M3X 



3 00 B3[§1#R2,R3]*A3CR1»R2»R33 

END 

- TFMPnm » Bir^ j; temp rip *. &2jl$jl±i± 



TEMPC12]*- B3C3»3»33i 

END; TEMPC13] *■ Ri; TEMPCHJ «• R2; TEMPtl5] ♦ R3i 
JJL.fll-JHElL.TE MP [16 3 - i; IF R2 THEN TFMPE173 + II 

IF B3 THEN TEMPtlB] «• H 

FILL ANSC*3 WITH OcTl* 0cT3> OcTlOO* QcT6* 
.■QCJg.j. QCT1» PCT3. QCT6. nCTll,QCTl. HCT2. _ 

0CT3# 0CT1# CCTl, OCTi; 

CVN * 18 ; PnO 4- 37 ; 
. VEJL 1£I . 



QCT5# QCT4* OcT3* 



00370350 
00370360 
00 3 7047-0 
00370380 
00370390 

..MMM.Q.Q.. 
00370410 
00370420 

_0iL37O410 



end; 



PROCEDURE P 3 8; COMMENT ASSIGNMENT STATEMENT 
B£GJ_N 



uw 



30 OCT 63) 



REAL A; 
INTEGER 
BOOLEAN 



00370440 
00370450 

-O_Q_3_7_0ji6JL 
00370470 
00380000 
00380010 



J#K»k; 

s#t; 



ALPHA Z; 

ARRAY XCH33; 

REAL PROCEDURE KQRKI 



00i80020 
00360030 
00380040 



BEGIN 

en d ; 



00380050 
00380060 
00380070 



TEMP C123 «- KORtt*- TtMPClOI 



TEMPtl] ♦ 27/2; 

TEMPC23M62J 

Z» W WEIZIR"J 



00380080 
00380090 
00360100 



TEMP[33 
M«-7; 

t* true; 



z; 



00380HO 
00380120 
00380130 



S * M < TEMP[23 AND T; 
TEMPC43 «■ IF S THEN 1 ELSE 
J ♦ 67/5; 



00380140 
00380150 
00380160 



o; 



00380170 
00380180 
00380190 



2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

,7 I 

18 

19 

20 ( 

21 

22 

23 1 

24 

25 

26 i 

27 

26 

29 1 

30 

31 

32 i 

33 

34 

35 I 

36 

37 

38 { 

39 

40 

4,< 

42 

43 

44 I 

45 

46 



i 
f 

i 



47 

48 

49 

50* 

61 

52 

53 < 

54 

55 

*< 

57, 



B 



• • 



TEMP[5]«- j; 
K* TEMPClJj 

_LLMP_IAi 



<- K 



TEMP[7] «■ TEMPC8J * TEMP[9J * TEMPC13J 

TEMP[10] «■ XtU*2l/2; 

TEMPflU. [45*33 «• M.T45»33; 



00380200 
00360210 
JJjQ.ia.Q220. 
00380230 
00380240 
00380250 



A*- KQRK/ 00380260 

FILL ANS[*J WITH QCTlOiO0O0U00000.154» 0CT242* UCT66253 171 3 \b 1' 00380270 
OCTl, QCT15, QCT16, OCT 10 1Q0Q0000000 l 54» OCT 10 1 0000000000 1M, 0036Q?fln 



0CTl0l00000G00G0l54> 
QCT1010000000000124; 
CVN » 12} 



acTioiooooooooooiaa* 0CT7* 



end; 



PNO * 38; 
VERIFY 



00380290 
00380300 
00380310 



00380320 
00380330 
0Q3flQ34JL- 



PROCEDURE P39; COMMENT GO TO STATEMENT "WITHOUT PROCEDURES AND~SW ITCHES* 00390000 

4,3, WIT* 11-9-62, THIS PROCEDURE DOES NQT USE 00390010 

- _... NORMAL T ESTIN G MECHAN ISMS OF TEMP , AMS , VERTF V » n(V^n 020 

ThE PATH THHUUGH THIS PROCEDURE IS AS FOLLOWS! 00390030 
Ll L2 L3 L4 L5 L6 L7 L8 L9 L1Q0039Q040 

— - — - — LU 112 — lai — L4J US L_L6 UJ L4£ L43 L 2 3 9-0050... 

L21 L22 L23 L 24 L25 L26 u27 L28 L29 L300039006Q 
L31 L32 L33 L34 L35 L36 L37 L38 L39 L4QQ039Q07Q 
_L44 Lft2 1,43 ULA LA'S L46 LMl LAB -L-4S 1 5 00fl.19OQ.8Jl 



L51 L52 Lb3 L54 L55 L56 L57 L56 L59 L6000390090 

L61 L62 L63 |_64 L65 L66 L67 L68 L69 L'000390i00 

-LZ1 LZ2 LU UJLi QfLiiflLtJUQ- 



BEGIN 
LABEL Ll»L2*L3*L4,L5»L6,L7,L8,L9#Lll'Ll2>L13*Ll4*Ll5#Ll6> 

L17,L18,L19,L2Q,L22,L23jL24,l25*L26,L27,L28*I 29,t 30>L3l,l 32, 



00390120 
00390130 
00 3-9014 



L33>L35,L36,L37,L38,L39>L41>L4 2'L4 4>L4b#L46>L47#L48>L<j9,L50* 00 390i50 

L52»L53»L5«#L55»L56#L57»L58,L59»L62»L63#L64#L67#L70#L7i#L72» 00 390^0 

- L73fL74 > L75tL76>L77 > L7a»Lyv> LB 0> L Bl »L W g>La3n .fl 4f L fl5F La 6f LB 7f 003901 7 XL 



L88»L89,L90,L9i; 

MONITOR FN0K(LI*l2*L3*l4,L5,L<»#L7,l8,l9,lH*L12»L13,L14,L15,l16, 

L17,L18,L19,L20#L22»L23>L24,L25,L26,L;'7,L28,L29,L30,L3i,L^, 

L3 3,L35,L36,L37,L38,L39*L4 1,L42,L^4,L4b,L46,L47,L48,L49,L50, 
L52»L53»L54*Lb5*L56,L5?'Ls8,L59*L62'i-63*L64*L67*L70#L7l*L72» 
__ L7 3 ,L7 4,L7 5,L7 6,L7 7,L78,L79,L6 0,L81,L8*/La3,L8 4,L8 5,L86,L8 7, 
L88,L89,L9C,L91); 

INTEGER I; 



Ll» GO 70 L2; 
L46: GO TO L47; 
L 48» GO TO L49; 



00390180 
00390190 

■ 00 39.O_2iJ.0-. 
00390210 
00390220 
00390230 

00390240 
00390250 
0Q39Q26 JL 



L53I GO TO L54; 
L2» IF TRUE THEN L3t GO TO L4 i 
L4« IF TRUE THEN L5» BEGIN L&* GO TO L7 END* 



00390270 
00390280 
00390290 



L8» IF TRUE THEN 



L9! BEGIN LABEL LiO; 

MONITOR FNOK CLIO); 
LIO J GQ TC Lll END; 



00390300 
00390310 
00390320 



L9U IF FALSE THEN Ll4l FOR 1*0 DO H5I GO TO i.X6i 
L90I IF FALSE THEN L89* GU TO L74 ELSE L49I GO TO L50i 
L12» IF TRUE THEN Ll3» GO TO Ll* ELSE L1H GO TO L12J 



00390330 
00390340 
00390350 



L88I IF FALSE THEN L47»G0 TO L48 ELSE L37: GG TO L38; 
L87I IF FALSE THEN L86t GO TO L74 ELSE L58» GO TO L59; 
L85« IF FALSE THEN L63I GO TO L64 ELSE L62: GO TO L63; 



00390360 
00390370 
00390380 



l84i if false then l525 gq to l&3 else l83* begin l16i go to ll7 

end; 

.LB2..I-JF FALSE THEN Ll9i GU TO L20 ELSE L20» BEGIN LAflEL L2U 



00390390 
00390400 
00390 410 



00390420 
00390430 
00390440 



J& 



• • 



# 



10 

11 

12 
13 
14 
15 
16 
I 17 

18 

19 
} 20 

21 

22 
I 23 

24 

25 

26 

27 

28 

29 

30 

31 ~ 

32 

33 

34 

36 

36 

37 ~ 

38 

39 

40 

41 

42 



45 
46 
47 
48 
49 
SO 
61 
52 
53 
54 



55 
56 



L231 IF FALSE THEN 



MONITOR 
L221 GO 



FNG* CL21); L21 
TO L.23 ELSE L2* 



LSI* IF FALSE THEN L4U GO TO L42 ELSE L26I 



GO TO L22 END* 
FUR I«-0 DO 

1.25: GO TO L?6,? 



.LZQ.L. 
L30« 

L38« 



FOR l»0 no i 39tnn to i -<ru 



IF TRUE 
60 TO 



THEN 
L28J 



L27I 



FOR 
FOR 



1*0 
1*0 



DO 
DO 



L31 
L39 



BEGIN 
bEGIN 



L32J GO TQ L33 tNp/ 

LABEL L40; 

MONITOR FNO K IHO)i 



L4QJ GO TO L41 ElSDi 
L55I FOR 1*0 00 L56I FOR 1*0 DO L57: GO TO L56; 
-L7jQ? FQ8 1*0 HO 1711 IF TRUF ThEN l. 72 1 fin TO L73 Ft SF i 73t 



L80« 
L79L 



BEGIN 
Ji£SJA_ 



L7 

L54 



GO 
-GJL 



L78I 
L77I 



TO 
ILL 



L8 
L55 



BEGIN 
BEGIN 



L17I 
L33» 



END) 

en d; 



GO TO L74> 



BEGIN 
BEGIN 



L18» GO 10 L19 END END; 

LABEL L3<*' 

MONITOR FNOK LLlAU i 3 Ai f.n Tn t <* 



176« 
L 75 ». 



BEGIN L35: FOR 1*0 00 u36: GO TO L 37 £N0; 
BEGTN L44: TF TRUF ThFN MSicn TH |_46 END; 



END end; 



• 1.421 BEGIN 



_L5_0_L_aEGJLR_ 



LABEL L43; 
MONITOR FNOK 
LABEL L5U 



CLl3)i L43t GO TO L<U END; 



MONITOR FNOK CL51)* L5l» BEGIN GU TO L52 END 



. 1A.7JL BEftliL LABEL L66, 



END, 



J^.9J.__BEG1N 



MONITOR FNOK (1.68)* L68* BEGIN 
MONITOR FNOK CL69); L69J GO TO 
LABEL L60, L6i; 

MONITOR FNUK (LfiO* L6p; L60» 



LABEL L69J 
L70 END END; 



-LMI BE_G_1N_.LABEL L65* L6 6, 



h"LK 1*0 DC 
L61: GO TO 



L62 end; 



MONITOR FNOK CL65, L*6); L65* 



L74* 



IF TRuE THEN 
L66J GO TO 



L67 end; 



PR 



end; 
ocedure 

BXSJN 



P40; COMMENT DUMMY STATEMENT 



EK 



12N0V 62; 



REAL A,B*C; 
INTEGER J# K# 
BOOLEAN F#T; 



L* I 



ALPHA 
ARRAY 
LABEL 



beta; 

X[U3i; 



tempcu* i; 
go to n; 



; ; j 



m 

TEMP[2]* 2; 
FOR 1*3 STEP 



1 UNTIL 8 DO 



BEGIN 



LABEL L2j 
BOOLEAN TPU 



IF TR 



TEMP[I+bj* 
TR* TRUE ; 
THEN GO TO L2; 



1*5. 



TEMPCISJ * 

L2» 



is; 
i 



L 



00390450 
00390460 
JOJOiSlfliUZiL 
00390480 
00390490 

00390510 

00390520 

■HOJ905.3J3- 



00390540 
00390550 
__flQlSM4.0. 
00390570 
00390580 

-..oojJMisaa 

00390600 
00390610 
. -Q-Q_3.9_0_6.2a. 
00390630 

00390640 



00390660 
00390670 
0O39 0ftfln 
00390690 
00390700 
-OOiJUttZiJO 



00390720 

00390730 

-0JU90.2JL&. 



00390750 
00390760 
0390770 



00390780 

00390790 
003908 00 



00390810 
00400000 
00400Q1 Q 



00400020 
00*00030 
00*00040 



00*00050 
00400060 
00400070 



00400080 
00400090 
0Q4Q010Q 



00*00110 
00400120 
00*00130 



00*00140 
00400150 
OQ4Q0160 



00400170 
00400180 
0Q4Q0190 



00400200 
00400210 



■»"">« 



tf 



12 
13 



17 ' 
18 
19 

20 I 
21 
22 

23 ' 
24 



27 
28 
29 ( 
30 



33 
34 
35 < 
36 

37 



a 



50 ' 



52 



54 
55 



„- 



7 

I B 

9 

10 
l " 

12 

13 

I !4 

l 5 

16 

i .17 

i a 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 ~ 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

•8 

49 

50 

51 

52 

53 

54 

55 

56 

5-i 



END. 



TEMPCI]*- H 



3L&JJL 



REAL PROCEDURE 

BEGIN 
LABEL L3; 



ABCD 



FOR 



INTEGER 
L3* 
^0 STEP 



00400230 

J0DAQ.Q250. 
00400260 
00400270 
.0_0_4i3.Q2.aQ.. 



j; 



UN TIL 



3 UL1 



END 



00400290 
00400300 
0Q4 QQ310- 



; 

TEMP.lflJ* ABCDf 



00400320 
00400330 
QQ4QQ34Q 



LKD.L. 



END ; 

FILL ANS[*J WITH OCT.* 0CT2* 0CT3' OCU* 0CT5* 0CT6* 0CT7> 

0CI10 1 0CT11, UCT12, QCT13> 0CT14, QX11J__ CCTO, UCTOj 

CVN «- is; 
PNQ«-40; VERIFY 



"PROCE'DURE 'Wufi COMMENT IF STATEMENT JW " 31 3CT 62; 
BEGIN 

_ BOO LEAN A*8; 



LABEL ABLE* CAIN, FIN1, NEXT; 
PROCEDURE N0THCFl#F2)/ 

BO OL EA N F1/F2 ; 



BEGIN 
IF Fl OR F2 

TEMP[3 JL 



THEN TEMPC3J 
J______-J_il±6 



«■ TEMHL3J + 4; 



end; 
* true; 
» false; 



IF A THEN TEMPtl] * 135* 
IF B THEN BEGIN TEMP12J*2; 
TEMPC2] «■ TEMPC21 +3; 



go to NtXT end; 



NEXTl IF A THEN NOTHCA*B>; 
IF A THEN GO TO ABLE; 
TEMP t «] » top; 



ABLE* IF A CR B THEN TEMH.4J «• TEMP[4]+7; 
IF A OR B THEN BEGIN TEMPtbJ * 8; 
TEMP[S] » TEMPC53+1 END; 



IF A THEN BEGIN REAL 
M* TEMPL63 «■ 11; 
N» TF'Ht_5_. 



m*n; 



TEMP[6) *• TEMPL6] +1 END; 

GO TO cain; 

TEMP[73 «• TEMPC73+30; 



IF A THEN GAIN* TEMFC7J 

GO TO FlNi; 

TEMP [ 83 » 1EMR L&1+ 22J 



* TEMPC73 +3i; 



IF 8 THEN FINI* TEMPL83 «• TEMPC83+28; 
FILL ANS[*3 WITH OCT207* 0CT3> 0CU2* 
QCT37* 0CT34; , 



0CT7, OCT 1 1* 0CT14# 



CVN* 8; 
PNO ♦ Alt 
VERIFY 



end; 
procedure p42; comment if then else statement 

REG IN 



Jk 



31 OCT 62; 



INTEGER j; 
BOOLEAN A'B; 
INTEGER X-»; 



00400350 
00400360 
00400370 



00400380 
00400390 
00 40 0600 
00410000 

00410010 
Q410 J12,Q„ 



00410030 
00410040 
0Q41QQ50- 



00410060 
00410070 

.flMiooao 



00410090 
00410100 
OQ41 0H O 



00410120 
00410130 

0Q4J0 1 4Q 



00410150 

00410160 

_00_410170_ 



00410180 
00410190 
00410200 



00410210 
00410220 
QQ41Q230 



00410240 
00410250 
OQ41 02 60 



00410270 
00410280 
04 10290 



00410300 
00410310 
Q41 Q32Q 



00410330 
00410340 
QQ 4 1 Q 350 



00410360 
00420000 
0Q4 2 QQ1 Q 



00420020 
00420030 
4 2 00 4 



9 
10 



12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 ~ 



32 
33 

34 

35 

36 

37 ~ 

36 

39 

40 

41 

42 

43 



45 
46 
47 
48 



49 
50 
51 
52 
53 
34 
55 
56 



LABEL 6AKE^AN(MY,NaE#JACK»uUG^ASY>FQX/LA5i; 
A* TRUEi 
_a±-.£AL&EJ , 



X* 

J* 

_l_ 



Y * 
0; 
A OR 



4; 
B THEN TEHPtlJ ♦.TEHP_1_+_ El _£ TEMP.H » TEMPfp*H 



00420050 

00420060 

JiSUiZQSaSL 



IF A AND 6 THEN TEMPC23 «■ UMPC23 + 7 ELSE TEMPC23 * TEMPC23+6; 
IF X>4 UR Y*7 THEN TEMPL3J ♦ JEMP[3]+y ELSE IF A AND B THEN 
TEMP[33 * TEMP[3j + n EL-_ TEMP[31 <- 1EMP[3J+12J 



00420060 
00420090 
QQ42Q-IQ0. 



IF A AND 8 THEN TEMPC43 * TEMPC«3+l7 ELSE IF X*Y THEN 

TEMPC43 «■ TEMP[43+18 ELSE TEMP[43 * TEMP[43+l9; 
IF IF A OR B THEN X»Y ELSE X>Y THEN TEMPt5_ 4- TEMPE53+24 



00420110 
00420120 
00420130 



<- TE.MPr5]+2a; 

GO to bake; 



TEMPC5] 
IF A THEN 

__________ 

BAKE* IF B THEN TEMPC6] 
IF X*3 THEN GO TO MANNY 
ELSE GO TO JACK? 



J_L___ 



00420140 
00420150 



*■ TEMPT* 3 + 32 ELSE TEMP C6 3 ♦ 
ELSE IF x«4 THEN GO TO MQE 



00420170 
00420180 



J «■ j+ioo; 

MANNY! TEMPC71 «- TEMP[7-+3d; 

go to last; _ „__ 



TEMP[6j+33;00420200 

00420210 

0Q 420220 



MOEI TEMPC73 «• TEMHt?3*39l 

GO TO dog; 

JACK. TEMFC7. <• TEMP _73+40J 



J* j+3; 

IF A THEN DGG: TEMP[aJ * T-MP[a3 + 9t; ELSfc. TfcMP[e3 ♦ TEMP[ 8 ]+99; 

-J5jO_T.fi EASY ; 

J* J+5; 

IF B THEN TEMPC9] 



00420230 
00420240 

J-_-^0_5JL 
00420260 
00420270 
00420280 



00420290 

00420300 

.00 4 2_.3-.10. 



«■ TEMPC93+300 ELSE IF A 
EASYt TEMP[93» TEMPCQ.+3Q1 ELSE TEMPE93 



THEN 

* TEMP.93+3Q2; 



GO to fox; 

J* J + 7; 

IF A THEN TFMPC1Q3* 



00420320 

00420330 

J_£__Q3__L 



FOX* TEMPC103 
GO TO last; 
.___+__ 



TEMH[1UJ>600 ELSF IF Li THFN 



* TEMPC103+601 ELSE TEMPU03* TEMPC 10 3+602; 



00420350 

00^20360 

-O_42037_ 



LAST: TEMPtH) * j; 

FILL ANS c *3 WITH CJ.T2' OCTlO, QCTll* 0CT22» 0CT3O* QCT41* 

0_C T47» QCT14?* 0CT455* 0CTH31* OCTO; 



00420380 
00420390 
004204 00 



CVN + HI 

PNO«- 42; 
V ER IFY 



00420410 

00420420 

__0_____0_ 



end; 
procedure 

B EGIN 



00420440 
00420450 
00420460 



P43; COMMENT IF FOR STATEMENT Jfc 31 OcT 62? 



boolean a,b; 
integer y#zi 
a » t rue; 



00420470 
00430000 
00430010 



B«- FALSE! 
Z + Y + O; 
IF A THEN fdr 



00430020 
00430030 
Q04 3QQ4Q 



Y ♦ Y + l STEP 1 UNTIL 5 PC TEMP.13 «• T_MPtl_4S_ 



00430050 
00430060 
PQ43 Q7Q 



IF B THEN FOR Z * Z+l STEP 1 UNTIL 3 DO TEMPC23 * TEMPC23+3J 00430080 
TEMPf23* TEMPC23+4J 00430090 

FILL ANSf*3 WITH 0CT31. QC74J. ; 0043010Q 



CVN * 2; 
PNQ* 43; 
VERIFY 



END! 
PROCEDURE 
BEGIN 



00430HO 
00430120 
00430130 



P44; COMMENT FOR STATEMENT USING THE ARlTH. EXP. ELEMENT ; 



00430140 
00440000 
00 4 40Q 10 



>r 



2 
3 

4 

5 

6 

7 

8 

9 
10 
11 
12 
13] 



[16 
17 
18 
19 
20 
21 



23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 



37 
38 
39 
40 
41 
42 
43 



45 
46 
47 
18 
49 
50 



52 
53 
54 
55 



56 
57 



REAL A^Rj-C; 
INTEGER 0; 
INT EGER PROCEDURF 



THREE<FALX?; 



INTEGER FAEX; 
BEGIN 
THREE* FAE X 



end; 
a«- 27.2' b*. 20; c* 5.5; tempc 1 j *5. 5; 

TOR C* 2 + 3 nn TFMPT31* C + 5; 



TLMp[ 2 3<- 7i Do 2732; 



FOR C* B-A DO TEMPC43* C»2 I 

FOR C* TEMPC13 + TgMP[23 DU TEMP[53* Ci 

FOR C» D.C44:2J ± D.C4QI33 DO TEMPC63 * 



C"8; 



FOR C* + D. [44*43 + C-D.E45I3]) DO TEMP173 * Qi 
FOR C* THREECO) x THREE<2> * u,[44:43 f; U TfcMPlH] 
FOR C * "AB"/ "A" 1)0 T_MP[93* C-0 .05B823b2V<i l J 



CJ 



FOR 

FOR 

FOR.. 

FILL ANi>t*3 WITH OCT1H5400000000000* CCT7, QCT12* 

OCT 3131114*3 146 3 146* UCT 10 lOOOOOOUOOO 14 4* 
UCTQ* QCT1U, UCT140 , QC Tln l, tlCTn, UCTn. 



C* "AB" MOD "A" DO TEMPfclOJ* c-U 

C* "AB" CIV THREE(2120> DO TEMPCH3* Cj 

C* C + g D O TEMPC12J* CJ 



CVN* 12; 
PN Q* 44J 



UCT2; 



end; 



VERIFY 



PROCEDURE P4 5; COMMENT FOR STATEMENT LSImG STEP UmTIi ElFMENT; 



BEGIN 



REAL A* 
INTEGER 



B# CI 

i*n; 



REAL 



procedure 
real 1; 

BE G IN 



CHECK(I); 



CHECKED 1*1 + 2; 

end; 

INTEGER PRQCFOURF EOUR 



( f s u ) ; 



INTEGER FSU; 

BEGIN FOUR * FSu + 2 ; END; 
.INTEGER PROCEDURE THHEF (F AtX ) ? 



00440020 
00440030 
004400 40 

00440050 
00440060 
00440070 



00440080 
00440090 
00440100 



00440110 
00440120 
00440130 



00440140 

00440150 

■QQ440160 



00440170 
00440180 
004 40190 



00440200 
00440210 
0044022a 



00440230 
00440240 



00440260 
00440270 
Q Q450QOO 



00450010 
00450020 
on450mn 



0Q450040 
00450050 
00450060, 



INTEGER FAEX; 
BEGIN 

THR EE* FAE X 



00450070 
00450080 
__Q_i_____ 
00450100 
00450110 
00450120- 



___ 



end; 
a* 25.5 ; b* 20; c* 3.5; umpc13 «• 3,5; tlmpc23* 7; 

0*2732? U5J 



00450130 
00450140 
QQ45Q15Q 



FOR C * 

FOB C * 

-TE MPC43 



2+1 STEP 1 
B-A STEP C 



UNTIL 
•C/S + 



5 DO TEMPC33* C; 

I) UNTIL A+B DO BEGIN 1*1+3* 



00450160 
00450170 
00450160. 



FOR C* TEMPtt 3+TEMPC2J STEP TEMP[U UNTIL 14 DC 

TEMPC53* C; 

FOR C» D.[44t23 + Q.[40»33 *>TEP 1 UNTIL 0. [44843 



00450190 
00450200 

0045Q210 



J__ 



TEiPt63* C; 

FOR C»'0,C44l4jf(-D.C45»33 ) STEP 0, [45*13 UNTIL 

D _ ___l__ Q Q 



00450220 

00450230 
00450240 



TEMP[73* C ; 
FOB C* FOUR C2) 
TEMPT 83* C ; 



00450250 

00450260 

_ Q Q4 5P2 7 Q 



x FOUR CO) STEP 5 LNTIl FQuR (16) DO 



FOR C* "AB M /2 

TEMPC93* C; 

FOR C» "AB» MOD 



STEP M A" UNTIL <"A M x 1QJ + 1061 DO 
"A" STEP 1 UNTIL "A" DO TEMP C101* CJ 



00450280 
00450290 

00450300 



00450310 
00450320 
QQ45Q3 3Q 



39 

40 

,1 

42 

43 

44 I 

45 

46 

47 < 

48 

49 

50 ( 

51 

52 

63 ( 

54 

55 

56< 

5} 



n 

2 
3 

4 
5 
6 
7 



9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 



26 
26 



27 
28 
29 
30 



31 

32 

33 

34 

35 

36 

37 ~ 

38 

39 



40 
41 
42 
43 
44 
45 
46 



47 
«8 
49 
50 
51 
52 
53 
54 
55 
56 



FOR O "AB" 
THREE<0) DO 
.T EM PI U 3+ C; 



DIV THREE (2120) STEP D. C ^b : 1 3 UNTIL 



oTEMPcn j; 

FOB OC + THREEC2) 
TEMPri23»Ci 



STEP 1 UNTIL CtCft4l33*ThREECC.C45l3J-i> 00 



FOR C«-F0UR(2) STEP 2 UNlIL 15 DO C «-CHECKC 8 )/ TEMPI 1 3 J *BJ 
FILL ANS[*] WITH QCT1010000000000034* OCT?* 0CT5# 

0CT1134505246230276* 0CT16, QCT14, QCT12* 0CT22, 

0CT2300* 0CT21* QCT2, 0CT7* 0CT26; 

CVN«-l3J • 

PNO fc 45; ; , . 



VERIFY 

end; • 

-HjmCiLDkRE P4.6J. CO MM ENT FOR SlAlEilLhJ USlJ_i TH E HHH „E ELE M E NT 

BEGIN 

REAL E»F«C; 

BQDLFAM a, a; ; 



INTEGER D> G; 
INTEGER PROCEDURE FIVE 
INTEGER FWSi 



C F W b ) ; 



BEGIN FIVE «• FWS x FftS tNOi 

e*15,5; f*io; g*5,5; 0*2/32; a*true; 
— b» false; 



TEMPC13* 17; TEMPC23*- 7i 
FOR O 2*1 WHILE A OR B DO BEGIN 
.JEMPr3l* C EJUXi 



A* FALSE; 



FOR C* F-E WHILE A OR 
TEMP[G-1]*5/ 
-EOff C» ' TFMPf 13 riHll F. 



8 00 TEMPC43* C; A* TRUE; 
A ANU B OR A HO BEGIN 



a* false; tempcg]*- c 
end; 

■EQR C» Dt [ 44:2 3 + OiXi-__3 hri lLE 



A EQV B EQV B EQV B DO BEGIN 

IF A THEN A* FALSE ELSE A* True; TEMPC7J* C END; 

F OR C » FIVE (3) ♦ FIVE (3J WHILE NOT 3 DO BEGIN IF 



A THEN 
TEMPC83* 

■A±- JL3_Ei 



C ELSE TEMPCflJ* Oi B + TRUE END; 

js» fals f; 



FOR C* "AB" MOD "A" WHILE CA OR B ) OR B DO 

BEGIN A* FALSE; 

TEMPt93 » C x 10 _ FIVE (3) END; 



004:30340 

00450350 

J1G4-5.G_3~0. 



00450370 
00450380 
00450390 



00450400 
00450410 
J_fl!&0_LQ_ 



00450430 

00450440 

J_L_SJ)___L 



00450460 

00450470 

..QjQA6j_Q___. 

00460010 
00460020 
Q046Q030. 

00460040 
00460050 
004AQ060-. 



00460070 

00460080 

■ 00460090 



00460100 
00460H0 

..0-0-6X142.0... 



00460130 
00460140 
0Q46.fl4..5-a. 



00460160 

00460170 

J_M6_3___ 



00460190 
00460200 
0046 0210 



00460220 
00460230 

QQ46Q240 



FOR 
FOR 
193 



C* 
G«- 

DO 



"AB" DIV 
190 STEP 

g*- g; 



11 WHILE 
1 UNTIL 
TEMPtlO]*- C + G> 



A IMP B 00 BEGIN 
A* TRUE END' 



00460250 
00460260 
00460270 



F I LL ANS[*J WITH 0CT21, 0CT7, 0CT3# 0$T0, 

QGT5, UCT2000000000000021, 
QCTlO# QCT22» QCT23* QCT446* QCT23* 0CT602/ 



00460280 
00460290 
00460300 



00460310 
00460320 
00460330 



CVN 
PNO 
VERI 



10/ 
46 ; 



end; 
procedure 

BEGIN 



fJL 



00460340 
00460350 
00460360 



P47J COMMENT THE FOR STATEMENT USING THE STEP 



REAL EfF'C) 
BOOLEAN A»B; 
INTEGER D# G/ 



00460370 
WHILE ELEMENT/00470000 

00470010 



00470020 
00470030 
00470040 



INTEGER PROCEDURE SIXCFSW)/ 

INTEGER FSWJ 

BEGIN SIX» (rSH +2)x FSW ENUJ 



00470050 
00470060 
00470070 



57i 



r~ 



Sx 



E* 6,5; F* 5; O 7.5; D* 273? ; A*- TRUE' fl* FALSE; 
G*31 

-i£HEri]» i s ; tfmp Liu± a; 



FOR O 3 STEP 1 WHILE A OR B DO BEGIN G* G-l 
A* B00LEAN<G,C46ll3); 
-TFMPC31* P. END; A*- TR UFJ G + / 



00470080 
00^70090 
004 7.01011. 



FOR C* F-E STEP-E WHIlE A AND B UR A DQ BEGIN 

G + G + ENTIER (CE - F)+2); 

A + BOOLEAN U ^ jJL5 _L LL LUi Ij j jfi i0±£ t 0,L45?2 3 E N D; G» Q i 



00470U0 
00470120 
00470130- 



00470140 
00470150 
0*79 160. 



7 
8 
9 

10 
11 
12 

13 
14 

t.'i 

i 16_ 

m 

IB 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 ~ 

3B 

39 

40 

41 

42 

43 

44 

45 

46 

47 

«8 

49 

50 

51 

52 

53 

54 

55 

56 

57 



a*true; 

FOR c* TEMPCU + TEMPC23 
BEGIN fi» G ± 3 IX C B i i A*- 



STEP TEMPI23 WHILE A IMP B E0V B DO 

HUUi FAN t r, T T43> M>| 



00470170 
00470180 
Q 047 Q190 



TEMP[5]*- G + TEMPtl] END; 
FOR O SIX (3) * D.C45J3] 

3L&1H A ♦• T R u £ ; 



oTep six (0) while not a do 



TEMPC6] * C + £ 
FOR C* "AB" MOD 

.flEfilAL 

G«- G + SIX CO + 
("A" MOD 9) ; A* 



004/0200 
00470210 

-QQ4 7Q 220- 



MQO 



F END* 
STEP "A" 



G* 01 

WHILE 



(A OH B) OR B 00 



00470230 

00470240 

.004702^0 



JXME[7]»,.C KQD 



BOOLEAN 
100 EN0,t-_ 



C(i. C43 » 1] )1 A* NOT Al 



FILL ANS [*] WITH 0CT17* 0CT5# 0CT4* 

OCT 2000000000000006* 
0CT27* QCTt0l000QU000002aq, 



00470260 

00470270 

.0 47.0.28 Q. 



00T2PJ 



00470290 

00470300 

JHL4-ZQ310-- 



CVN«- 7; 
PNO* 471 
J£ERLEI._ 



004/0320 

004/0330 

-OOJ_ZJD.34Q 



END1 

PROCEDURE P48J 
CONSTRUCT; 



COMMENT FOR STATEMENT CONTROL VARIABLE GO To 



00470350 
00480000 

onaaopiQ 



BEGIN 

LABEL PNT1# PNT2,PNT3, 

INTEGER Q* H* UJ 



PNT4, PNT^l 



00480020 
00480030 
00480040 



REAL C#E#F#G; 
BOOLEAN A,B1 

INTEGER PROCEOURE 



EIGHT CFGT) ; 



00480050 
00480060 
00480070 



INTEGER FGT1 

BEGIN EIGHT* FGT. [45:3] END' 

E» 15,5/ F» 7.5/ C+2.Q1 A» TRpE; 



B» FALSE! P* 2732; G«- 2, 



00480080 
00480090 
00480100 



TEMPC13* 151 TEMPC23* 3; H«- 4; j* 10; 

FOR C«- TEMPC23 STEP 2 UNTIL TEMP113 DO BEGIN C* C + TEMPU31 

GO TO PNTl END; G»G + 1 i TEMPEGJ* 5; ________^ 



PNT1J G«-G + ll TEMP[GU C; 

FOR C* F-E STEP H UNTIL J DO BEGIN h* h+H J* 

IFHH THEN GO TQ . PNT2 , E N QJ . &ilfi±li T E HPUU 



00480HO 

oo<*aoi2o 

00*80130 



j + i; 

M 



00460140 
00480150 
0Q48O16Q 



PNT2« G*G H* TEMPtG]* U 
FOR C* ElGHT(TEMPtl3+TEHPC23) 
C» C ♦ 5; IF 



STEP F WHILE A OR B 00 BEGIN 



00480170 
00480180 
00480190 



CM4THEN GO TO PNT3 END! 
PNT3I G«- G + ll TEMPCG3*- C/ 
FOR C» E. C 12 I 33 WHILE A OR 



h* 4; 

6 DO BEGIN 



H» H+l* IF H>6 THEN 



00480200 

00480210 
00480220 



GO TO PNT4 END) 

PNT4I G* G + l* TEMPCG3*- C*Hi 

FOR C» 2 STEP 1 UNTIL 5 00 FOR 



C» C + 5 STEP 1 UNTIL 15 00 BEGIN 



00480230 
00460240 
00480250 



IF C213 THEN 
PNT5» G«-G+U TEMPtG)* C i 
FILL ANS[»] WITH 0CT17* 



GO TO PNT5 END i 

0CT3» 0CT22* 0CTl2» 



00480260 
00480270 
00480280 



CVN* 

PNQ* 



4s; 



OCT1010000000Q00234# GCT16* QCTlSl 



00480290 
00480300 
00*80 310 



# • 



16 

17 
IS 



19 

20 
21 



22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 " 

38 

39 



VERIFY 

end; 

_P.RJl£EDiJRE„..P5iLL 



COMMENT VALUE ASSIGNMENT ■ PRQCtOURE CALLED bY VALuE 



E-K 



18 NOV 62; 



BEGIN 



INTEGER Xl»X?»X3,X4*X5*N*J»l; 



00480320 
00480330 
QOb O OOOO 
00500010 
00500020 
00500030 



ARRAY A[l;3J# BC 1 s 3]i 

BOOLEAN T; 

LABEL TEST* TAQ> f.ALI 



X-L 



00500040 
00500050 

.00500060 



INTEGER PROCEDURE FUNC(A,X3* N)J 

ARRAY AC 13; 

I N TEGER X 3» N ? 



00500070 
00500060 
OQ5aQOJ5UL 



BEGIN 



FUNC ♦• (AC 1 ]-X3)xN 



X*VOX 



00500100 
00500110 
,0050012 



PROCEDURE VASSIG( FP 1 #FP2 #FF J#FP «, FP5*FP6<rFP?#FP8#FP9*FP I 0»FP1 1*005001 30 
FPt2»FPl3'FPl«»FPl5'FP16*FPl9»FP20'FP21'FP22»FP23*FP2«» 00500i40 

_ FF25)t ; : . ; 0QS00150 



VALUE FP1*FP2*FP3#FP4#FP5»FP6<FP7; 00500160 

INTEGER FPWFP2* FP3 ,\ H4 ,FP5 *FP9,FPlO ,F PI 1 ,FP12>FP1 3 , 00500170 

FP15#FP19*FP20»FP21>FP22>FP23>FP25»FP7; 0050p_lfl0_ 



BOOLEAN 
ARRAY 
BFGIN 



FP6,FP14*FP2<»J 
FP8[13# FP16C13; 



00500190 
00500200 



LABEL FP7; INTEGER I; 

CEMMENT WHEN ALGOL, IMPLEMENTS GQ TU NON LOCAL LABELS 

THE ORI G IN AL MEAN IN G LF JHIS LAB E L DE CL ARAT ION 



00500220 
00500230 

Q05UQ2.JHL 



SHOULD NE EXPLORED. SfcE NOTES.; 

FP9 * fpi; 

F-P1Q » SW2i . 



00500250 
00500260 
00500270 



FPU 
FP12 
FP13 



FP3 ; 

FP4; 
fps; 



00500280 

00500290 

.0P50030JL 



FP14 * FP6; 
GO TO FP7; 
FP7» _ FP15 * 



4095J 



FOR 
FPI 

_£P_2. 



I 

4- 

* 



Si 



1 STEP 1 N TIL 3 DO FP8 [13 * 7; 



00500310 
00500320 



FP3«-FP2.C45I33; 

FP4 «• FP4 x FPl# 

FPS * (FP2»FFlx3j* FPi; 



00500340 
00500350 
00500360 



00500370 
00500380 
00500390 



40 
41 
42 
43 
44 
46 
46 
47 
48 
49 
SO 
61 
52 
53 
54 



FP6 «• false; 

FOR I ♦• 1 STEP 
FP19 «• fpi; 



1 UNTIL 3 DO FP16LI3 «- FP6CI3; 



00500400 
00500410 

0050042Q 



FP20 * 
FP21 «• 
FP22 » 



FP2; 
FP3; 
FP4; 



00500430 
00500440 
00500450 



FP23 «■ FP5; 
FP24 * FP6; 
FP25 *■ FP8[23 



00500460 
00500470 
00500480 



END) 
INTEGER PROCEDURE FUNK(X4,X5); 
■ INTEGER X4> X5* 



00500490 
00500500 
00500510 






55 
56 



BEGIN 



X4 
_XJL 



X4 + 2; 

xs+i; 



00500520 
00500530 
00500540 



FUNK «■ X4* X5 



end; 



procedure vALORPcrifr2*r3»r4»rs»r6,r7»Fa»F9jrio)i 



00500550 
00500560 
0Q5QQ570 



• • 



N 

2 
3 



VALUE F3#F4#F5»n»F2; 

INTEGER Fi>F2#F3#Fa#F5#Fe#F7#F8»F9#F10; 

BEGIN 



0Q500580 
00500590 
0Q50Q6QQ_ 



F6 

F7 

_EJ_ 



FU 

fs; 



00500610 
00500620 
00500630 



F9 * FUf 
F1C * F5 



end; 



00500640 
00500650 
Q05QQ660 



7 
8 
9 

10 
11 
12 
13 

14 

f 5 

tie - 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 ~ 

32 

33 

34 

35 

36 

37 " 

38 

39 

40 

41 

42 

43 ~ 

44 

45 

46 

47 

48 

49 

SO 

51 

52 

53 

54 

55 

56 



PROCEDURE CAL0RDCG1»G2,G3>G4, 

VALUE GU62#G3*G4»65* 
I NT FGFR G1» fi2* GJU GJLt G5> 



G5#G6#G7*G8#G9#G10)i 
r,6* G?> flft> .fig, ft.jor 



00500670 
00500680 
Q05Q0ft90 



BEGIN 



G6 
JaZ. 



gi; 

JL2i_ 



00500700 
00500710 
OQ50Q720- 



G8 * G3; 
G9 ♦ G4I 
G1C * fi5 



00500730 
00500740 
00500750. 



XI 
JL2. 



end; 

*■ 4; 

■*■- xa f ?,}. 



AC13 * A[2] «• A[3l «■ 5; 
COMMENT ******#*KLUGE CARD REMOVE 

n .» u ; 



00500760 
00500770 
0050078C- 



LATER ********; Btl] *i; 



00500790 
00500800 



j «■ i; 

CALLIVASSIG(N,AC 3]*X3.[45:3J*FUNC( 
IF Xl >X2 THEK TRUE ELSE FALSE 



TEMPC3], TEMPC4], TEMPC5 
TEMP t 123 #TEMP[1 33 # TEMP t 143 *T£ 
FOR I » 1 STFP 1 U NTIL 3 QU T 



A,X3'N)> CX2 +FUNC(A*X3#N))xACU# 
* N> A* TKMPU3* T EMPt23* 



00500820 
00500830 
00500840 



3»T# TEMPt73»B# TEMPC113* 
MPtl53#NGT T/TEMPU73 ); 

EMP [i t7 3 «• s en; 



00500850 
00500860 
QQ50QR7Q 



IF J > 1 THEN GO 
FOR I «• 1 STEP 1 
N * 2i 



TO TAG ELSE 
UNTIL 18 00 



TEMPC 1 + 17 J «- TEMPtI3; 



00500880 
00500890 

QQ5009Q O 



xi «- 3; 
X2 * 4; 
X3 » i; 



00500910 
00500920 
00500930 



AC1J* AC23 «-A[3] «• 6; 

J * J + U 

GO TO call; 



00500940 
00500950 
00500960 



TAG» X4 «• X5 «• i; 
CAL0RD(X4,X5#FUNKCX4,X5}#X4+1,X5X2,T£MPC35 3#TEMP[36],TEMP[37 3# 
T£MFt383j TEMFC393)* 



VALOROC X4#X5,FUNKC 
TEMP[4 
FILL ANSt*j HI 



X4,x5),x4 + l#x!3x 
33* TEMPL443); 
TH 0CT2». UCT6* 



2#TtMP[40 3#TEMPl413*TEMPC423# 
gCT j, QC T 1 2, QCT124, QCTO, 



00500970 
00500980 
00500990 



00501000 
00501010 
00501020 



0CT7777* 0CT7* 

OCt* j OCT 

OCT O, 0CT7777* 



0CT7# 0CT7* OC 
0* 0CT7* 0CT1# 
0CT7* QCT7* QC 



T2* QCT10* OCTO* QCT24* 
0CT5» 0CT2' QCT3> 0CT31' 
T7/ 0CT2* 0CT10> OCTO* 



00501030 
00501040 
00 501 050 



CVN 



0CT6# OCT 
0CT4, CCT 
• 44J 



4* OCT0» UCW* 
3, 0CT2> 0CT10, 



QCTl* GCT1* 0CT5' OCT«* 
0CT6, OCT*; 



00501060 
00501070 
0Q 5Q 1080 



PNO * 50; 
VERIFY 



end; 



00501090 
00901100 

00501110 



PROCEOURE P5W COMMENT CALL BY NAME 

NOV 20 1962 KM.; 
BEGIN , 



FORMAL PARAMETERS 4,7,3,2 



00510000 
00510010 
051 0020 



LABEL LAB' 

INTEGER B*C*D' 

LAB EL SPEC LABlf ?P 



LABULA83»LA84# 

E*F#G#M ; 
ECLAB2I COMMENT 



Ll'L2*LAB5'LAB2*LAB6; 

RE M O VE L AT£ft m a y 6 19*3 ; 



00510030 
00510040 
005100 50 



57) 



N 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 ~ 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

&7 



BOOLEAN ' LOCB; 
ARRAY AHAE [1*103* 

.Sill TCJL„,., 3HCH*L AUL AS' LAbl *L*B 2 * L AB 4> 



00510060 

00510070 

..Q.&31Q0BQ 



PROCEDURE ABC (C#ARY1H 
INTEGER C» 

ARRAY ARY1C13 



00510090 
00510100 
00510110 



BLGI 

end; 



N 



FCR OC STEP 1 UNTIL CC+CIO-C)) DP ARYltCJ *C; 



INTEGER PROCEDURE DEF CGHJ); 

INTEGER GHj; 
BFQIN 



00510120 
00510130 
J10_biOjLiLflL 
00510150 
00510160 
0Q5l0 t 7 Q 



_RJLA_L. 



end; 
Pfi 



DEF * GHJ+ (GHJ-1); 



REAL S 
BEGI 
SPRl 



TFORMJ 

N 

» 7 MOD 



ST.FOHM 



i 



00510180 
00510190 
..-Qfl£jjD_2Qfl. 
00510210 
00510220 
0051023 



end; 

PROCEDURE 



CALL CP1»P2#P 
Pl7,P10) 



3,P4,p5,P6,p7,pd,p9,pi0,Pll,P12,Pl3 
• 



00510240 
,P14, 00510250 

0Q5 jl0^jQ. 



INTEGER P2* P5* P6> PlO, P12J 
BEOLEAN P3J 
__R£AL PROCFDURE PJJJ 



005 
005 
005 



10270 
10280 

1 0290 



PROC 
INTE 

-AJRRA 



EDLRE 
GtR P 
1 



P8» P17# 

ROCEDURL 

P4 l 1 3 ; 



P18> 

P9; 



005 
005 
005 



10300 
10310 
iD.32.C- 



SWIT 
LABE 
REAL 



CH 

L 



P7i 

P13# 
P1 J 



P14J 



005 

005 
QQ 5 



10330 
10340 



COMMENT 



P8 IS PR 
P17 IS P 

Pld IS P 



UCEbURE 

KOCLDuRF 

ROCtUUHE 



ABC 
PRA 

PRO 



005 
005 

005 



10360 
10370 
10380 



P9 IS PROCEOURE DEF 
Pll IS PROCEDURE SPRl ; 



.5£G1N_ 



005 

005 

_0J15. 



10390 
10400 
i.0.4JL0. 



INTE 
LAPE 

Ql *■ 



GER 
L 
3j_ 



Ql» 

LBLl* lBL2> 



005 
005 
005 



PI ♦ IF P3 THEN CP1 + Ql) ELSE CP1 + 2)> 

FOB 01 * 2 STEP 1 UNTIL 5 DO P2 «- P2+Q1* 
IF P3 ThEN P3» FALSE ELSE P3 + TRUE; 



005 
005 
005 



1042C 
10430 
1044C 



10450 
10460 
10470_ 



LBL1 



P8(4>P4)' P5* P4L4]; P6* P 4 C 4 J ♦ P5 ; 
P17CP3#P7»P4# LBul); 
SP4C13* P9CP10J; 



005 
005 
003 



1O48O 
1U490 
105 00 



COMMENT KLUS.C CARD 



P12«- 

remo 
Ptec 



piicpi2); 

VE LATER 
LfiL2,P4*P 



*'****'**; P4C1 3. .♦ P4C1 3 J 
Hi 



005 

005 

JIM 



10510 
10520 
10530 



LBL2:END; 

PROCEDuRf. 

Bn DL 



pf^ACbOL' Sim. aRY'I-BL)* 

E.A.IS BJLLLi 



00b 

005 

J105 



10540 
10550 
L05AQ.. 



switch sw; 

LABEL LBL/ 
ARRAY ARYC 13I 



005 
005 

.Ofil 



10570 
10580 
1Q5 9 Q 



BEGIN LABEL LABI* 
GO TO IF BOL THEN 
LABU AHYC2J 



LAb2* Ll> 
LABI ELSE LAB2* 
<-5i GO TO LI J 



005 
005 
005 



10600 
10610 
10620 



end; 



LAB2» ARYC23 
HI GO TO L8L 



«• 10; 



005 
005 
005 



10630 
10640 
10650 



>r 



PROCEDURE PHC(LBLL*ARRY*8LG); 

LABEL LBLL; 
ARRAY ARRYClJj 



00510660 
00510670 
QQ5lQ_fi.,8,0.. 



BOOLEAN 
BEGIN 

LA&LL 



blo; 



L2* LAB3*LAB4; 



GC TO IF BLO THEN LAB3 ELSE 
LAB3» ARRYL3J*- b* GO TO L2> 
LA B4'» ARRYC3J«- lOj 



00510690 
00510700 
00510710 



LABa/ 



00510720 
00510730 

0Q51Q74Q 



l2s go to lbll 
end; 

DEFINE Al » C23/23 »(E-1)«J 



00510750 
00510760 
00510770 



10 

11 

12 
13 

14 
<*) 
16 
17 

k 

19 
20 
21 



23 
24 
25 
26 
27 



28 
29 

30 



31 
32 

33 



34 
35 
36 



37 
38 
39 
40 
41 
42 



46 

47 



49 
50 



51 
52 
53 
54 
55 
56 



B ♦ 23; LOOB* TRUE/ E* 5 MOO 3/ 
COMMENT CLUGE CARD REMOVE LATER; ARAEC1J 
COMMENT CLUGE CARD REMOVE LATER* THIS WAS 



f«-io; 

ARAEUJ ; 
INSERTED TO 



****** 
****** 



"spec'Lab 



PRESENCE 

IN THE STACK FOR PREOCEDuRt CALL. *ht*. a- 
P RA CL.Q OB* 5WCH*ARAE*SPECLABl); COMMENT *»* 
U LOOB*TRuE; PR0CSPEClAB2,AF(AE.l00i3); CgMMf 



0051078C 
00510790 

QQSlQflQQ 



tttMUVfc LATCH. I n * s HAjj INStKTtU TO GLT AHUUND OQJlOeOO 

BIT FOR PROCEDURE PRA AND PRO WHIcH ARE MaRKEO ABSENT 00510810 
ru rna par'nrrDiifiF r*i i . W a¥2, 1963; 00510820 

* * * REMOVE MAY 6 1963; 00510 B30 

ENT REMOVE 6ATER; 00^10840 

SPECLAB21 COMMENT REMOVE lATEH MAY 6 196j; 00510850 

CALLCAU B,lU6B,ARAE*C*0,5WCH,ABC,0EF,E,SPR1,F, 005108 60 

Tr TDtlf. TUru l AD3 f l «f I AClU. If C A I Ct TUE M i AUi 



IF TRUE THEN LAB3 ElSE LA65* 
SWCHCS3* PRA»PRQ); 
G» DEFCDEFC 3)); 



IF FALSE THEN LAB6 ELSE 



TEMptU*Al; TEHpC.2]*B; lEMpt3]+REALCLQCd,[47»lJ }; 
FOR H* 4 STEP 1 UNTIL 10 DO TEmPCH] «■ AHA£[H3; 

TEMP[ll3 «-C; TFMPtia3«-U;TEMPL13l«-A^AFr2J;TFMPria]«-AHAKf 11; 

TEMPE1S3*- F; TEMPC16I* ARaE t 3 J ; TEMPI 1 7 ] * G; 
LABI LABIS LAB2» LA83: LA84: 
LAB6: LAB5t , 



00510870 
00510880 
00510890- 



0051090C 
00510910 
0Q51 092Q- 
00510930 

00510940 
005100*50 



FILL ANS [*] Kith 0CT1010000000000144* QCT45* UCTO* 00510960 

OCU'OCTS, CCT6* 0CT7* GCT1C* 0CT11* QCTl2» 00510970 

Q£IAlSK11S>i UCT12, nCT3> 0CT7*ru;Tl2* OCT.U Q Q5 1 Q 98Q 



CVN *■ 17; 

pno «■ 51; 

-VE R IF Y 



00510990 
00511000 
005 11 QUI 



END 
PROCEDURE 
HEJaJN 



P52; 



COMMENT THE READ STATEMENT IN EXTENDED ALGOL. 



005H02C 
0C52000C 

QQ520Q1Q. 



FORMAT OUT READWRlTE ( XlG, "THE READ STATEMENT OF "ALGOL"* 00520020 

" WITH ALL ITS VARIOUS CONSTRUCTS OF"), 00520030 
SECONOLlNE (XlO* "READ* SPACE* ETC HaS BEEm WRITTFN AS A SPEC 1"0052QQ4Q 

» "AL ROUTINE BY JOHN SKELTON,"), 00520050 
ThIRdLINe (XiO* "TO TEST THESE ALGOL CONSTRUCTS THE 1/0", Xi 00520060 

"PACKAGE LS TO tfF USED"); 005*0070 



FORMAT OUT FlRSTLINE CX10*"TEST PROCEDURE NO. 

".2*3 EXTENDED ALGOL READ 
WRITF (FNOKCnBL], FlRSTLINE); ____^_ 



052 



4.8' 



STATEMENT"); 



WRITE (FN0KCD6L],RFAD*HITE)/ 
WRITE (FNOKCDBL]#SECONDLINt); 
WRITE (FN0K[CBL3>THIRL1L1NE); 



00520080 
00520090 
Q052Q100 



end; 

PROCEDURE P53j COMMENT THE WRITE STATEMENT IN EXTENDED AlGOl; 
BEGIN 



00520HO 
00520120 
00520 1 30 



FORMAT OUT FIRST0NECX10* "TEST PrOcEDORL NO, 053 

".3.3 extended algul write statement"), 

ftRTTtNOTF. (XlU*"TH£ hRlTF STaTeMfNT OF ALGOL 



4.8"* 
WI TH"* 



00520140 
00530000 

0Q 53 Q 01Q 



00530020 
00530030 
QQ5 3QQ40 



" ALL ITS VARIOUS CONSTRUCTS OF")* 00530050 

KRlTETwOCXiO* "wRn£*SPACE*ETC , HAS BEEN WRITTEN"' 00530060 

" AS A SPECIAL ROUTINE BY jQKN SKELTQN."), 0053007t> 



50 1 
51 
52 
53 ( 

54 
55 
56 < 
57 



2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 ~ 

38 

39 

40 

41 

«2 

43 



45 
»6 
47 
«8 
«9 
90 
51 
52 
53 
54 
56 
56 



end; 
procedure 

BEGIN 



KiRITtLAiTCX i 0"'fu TEoT trESL ALGUL CONSTRUCTS 
" I/O r" ' A C K A u E IS TO BE u - 1 U " ) ; 

tfuKITF CFNflKf PPL3*FlRSTlJKE); _ 

WRITE(FN0KtDBL3»WRlTEN0TE)i 

NRITECFNOKCD8L3*l«RlTETwa-)i 

WRITE CFN0K[0eL3»hRlTELAST)J 



Tht; 



oobjooec 

00530090 

_3.q_u_uxi__ 

00530110 

00530120 

_ 0fl53-0jjfl 



P55; COMMENT FILL -TAltMENT 



EK 



12 NOV 62; 



MATRIXC1*3*1;33* 



INTEGER ARRAY INTC1»23; 

ARRAY A* B* 0* RUs23* Ctlsb], 

INT EfiER T, J, VJ 

STREAM PROCEDURE FlAGCHK (UUM1* DUM2, 0UM3); 
BEGIN 

- -JLljJlUMi; 

DI*DUM3; 
01* GI+7; 
. l£_ SR T HEN OS* 1 SET? 



si * oum2; 

IF SB THEN OS* 1 SET; 
-&JL±-[) UM3 J_ SLIA-S lt 7} 



005 J0140 
005500GC 

._QObbp.0.LC 

0055002O 
G0550o30 

00550050 
00550060 
..JKLSJaJiaZJI.. 
00550080 
00550090 

-005501 



Dl*-DUMli IF SB 
DI*DUM2; IfK SB 

end; 



THEN DS* 
THEN OS* 



i reset; 
i reset; 



FILL INT [* ] WITH 5497558 13887* "549755b 13887; 
FILL A[*3 MTH 4.3063* 7.8056; 
. EILL..H[»]-JcIT h " EU W" *"t vf H"J L 



00550110 
00550120 
onsbOi^o 

00550140 
00550150 
Q055flJL6fl- 



FILL C[*3 KITH 1,0/ "TWO** 0.3*1,0*0; 
FILL MATRIXC1.*3WITH »DJA« *C*C** 
-FILL -MATRIX C2* * 1 WITH Q* "<iQN"*n; 



00550170 

00550180 

_O^J5501-9O 



FILL MATRIXES**! WITH 0*0*"A_"; 

FILL 0[*3 WITH QCT777, 111/ 

FILL RE*3 WITH PC I AOCQOQOOOU QOGOQ 1 *.. 



00550200 

00550210 

JX05iO«ll 



v*o; 

FLAGCHK(RE13»RC23*V); 
TEMPf233* R r 1 3 > 



_0£.12ZZZZZ 7 777777 777} 



TEMP[243 
TEMP[253 « 
TEMPT13 * 



00550230 

00550240 

_CLQ.55.a2.5a. 

00550260 
00550270 

.aa5_302aa... 



TEMPC23 
TEMPC33 
T£MP[4] 



RC23; 

v; 

JjVLLilL 



TEMP[53 
TEMP[63 
FOR 1*1 



INT L23; 

ACl3i 

AC23; 



00550290 
00550300 
0055031 C 



* ben; 

* BC23; 

STEP 1 UNTIL 



00550320 
00550330 
00550340 



5 00 TEMP Li +0 3 * C t 1 J 



00550350 
00550360 
00550370 



TEMPC12J * 0U3; 

TEMP[133*Ot23; 

FOR J » I STEP 1 UNTIL 3 DO TEMPCJ+133 



MATRIXClf J.; 



FOR J «. l STEP 1 UNTIL 3 DO TEMPtJ+16J 
FOR J * 1 STEP 1 UnTIu 3 DO TEMP[J+19] 
FILL ANS[*j hITH QCT7/77777777 (77* OCT 2007777777777777* 



MATRIX£2*J3* 
MATRIXC3* J]; 



00550380 
00550390 
00550400 



CVN 
PNO 



0cT72247i7454i3ll7* QcT6277 47624362477* 0CT252466* 
0CT*2253C* 0CT1» UCT630646, 0CT3* OCTO, OCTO* 0CT777* 
0CT157* OcT2a3l2l* QCTO* OcTC* OcTQ* 0QT274645* OcTO* 
OCTO, OCTO, 0CT2143* 0CT1* 0CT377777777 7777777 , QCT60; 



00550410 
00550420 
00550430 



00550440 
00550450 
00550460 



25; 

55; 



00550470 
00550480 
00550490 



end; 



VERIFY 



PROCEDURE P57JCQMMENT TYPE OECLARTlQN UWMJ 



00550500 
00550510 
0057OO0Q 



# • 



BEGIN 



20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 ~ 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 



INTEGER INDEX, 
. HMEfcU TNDFX <- 1/ 



TIME; LABEL INITIAL 



00570010 
00570020 

Q057.aa.aa. 



INITIAL* BEGIN 

OWN REAL FLOATONL^FLOATWO; 

OwN BOOLE AN TRUU^FAlSSJ 



OWN INTEGER ONE* TwU» ThREE* 

OWN ALPHA ALPHABET*; 

TF TIME «1 ThEN 



00570040 
00570050 
JiaAZflflAO- 
00570070 
00570080 
00570090 



BEGIN 
FLQATONE+S; TIME+T IM£+1. 
TRIJll ¥ TRUE? 



00570100 
00570110 



_O0- 1 



LUO- 



UNE * H 
ALPH <- "ABC" 



end; 



TEMPCINDEXJ * FLOATONE* 

TEMPCINDEXJ «• REAUTRUU 
TEMPflNPFX ± 1J » qnp; 



INDEX «• INDEX + U 



)) 



00570130 
00570140 



00570160 
00570170 

..ao5z.Qi.ao 



tempcindex 
end; 

BXfiXN 



+ 23 «■ alph; 



INDEX «■ INDEX +3 



OWN REAL 
FLOATBNE 
TRUU » 22 1 



FLOATONE* 

* l.o; 



TRUU'ONE'ALPH ; 



00570190 
00570200 

005/ 0240. 



..LN_Di. 



ONE ♦■ 2a; 
ALPH <• 29 



00570220 

00570230 

■O Q5702 4 



IF TIME*2 THEN BEGIN T 
FILL ANSt*] WITH 0CT5* 
__ QC.15, 



IME*TIME+1; GO TU IMTlAL END/ 

UCT1» QCTl* 0CT212223* 

OCTl* QCT1, 0CT2122?3; 



00570250 

00570260 

■ 0Q5fQ270. 



00570280 

00570290 

.00 570 300 



PR 



cvn * a; PNC * 57 ; verify 
end; 

QCE URE_P 6OJCOMHEM S.g.3.3 TYPE ARRAY ,hARRT» NOV 2 7,; 



00570310 
00570320 
O Q6gOQ QO_ 



BEGIN 



ARRAY 0NE#TW0C1U03; 

REAL ARRAY THREE»FQUR*F I VE»S IX C 1 t 5*2 \ 8 J ; 



00600010 
00600020 
00600030 



INTEGER ARRAY S£VEN»ElGhTL 
BOOLEAN ARRAY ELEVEN[U102 
ALPHA ARRAY TWEL VE C 1 UP 3 ; 



i»53#NlNECl«93# 
33 ; 



00600040 
00600050 
00600060 



INTEGER I/N; BOOLEAN 8*bOLi 
!♦«! N<-15; B* TRUEiBOL * FALSE 
BEGIN COMMENT DYNAMIC; 



00600070 
00600080 
00600090 



OWN REAL ARRAY H 
OWN INTEGER *RRA 
OWN BOOLEAN AWRA 



1C I-J:N+53; 00600100 

Y II t II ix N 3; 00600110 

Y Bl C 1 t IF B THEN UN EL^E N-9 3; 0Q60O12Q 



0NEC13 * 
THREECI* 



OWN 

i; 



ALPHA ARRAY A1*A2#A3C1M0J 



; 



00600130 
0Q6Q0M0 

00600150 



SEVENCI+ 
FOR I «■ 
TWELVEC1 



13 «- NINE. C I+«UJ«- 
1 STEP 4 UNTIL 
3» "HARRY"; 



EIGHT[N-3xl] ♦ 2i 
1024 DO ELEVEN C 1 3 ♦ B ; 



00600160 
00600170 
0060018Q 



I ♦ 4; R1U3 * Rl C183 *■ IU43 ♦ UC603 * li 
BU193* true; 

AUU + "HARRY"; 



00600190 

006Q0200 
0Q60021Q 



TEMPC1J*- 
TEMPC23* 
TEMP[ 33» 



TEMPI4J* 
TEMPC53* 
TEMPr6J » 



ONE ci 3; 

threeci»i3; 
sev eni i + u ; 



SEALCELEYENt53 

twelve* n; 

RU1B3J 



00600220 
00600230 
Q06Q0?aQ 



); 



00600250 
00600260 
Q06QQ27Q 



r~ 



2 
3 
4 
5 
6 



9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 



22 
23 
24 



26 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 " 

38 

39 

40 

41 

\7 

43 



46 
46 
47 
48 
49 
50 
51 
52 
53 
54 



55 
56 



TEMP[7]*REAL (Blll9]J# 

TEMP[8]*AlCn; 

FILL ANSC*] WITH UCTl* 



UCUj 0CT2> 0CTi» 0CT30215 1S17 QJ 



-END. 



CVN 



♦• 8) PNC «• 



QCTl* OCTl# 
6o; VERIFY 



OCT3021515170J 



00600280 
00600290 
.0.0 .6 3,0.0 
00600310 
00600320 



'RGCEDURE P61/CQMMEM BOUND PATR LIST 
BEGIN 

INTFGER IfJfKJ 



ARRAY BCUNOCl' 1 3 *M INUS E- 10«" 103 *MONUS [ 
SPLITC-15»14]#LIMITC2«1023]I 

I *■ \ \ J»6 jK» 6/ : 



-15 J-103* 



00610000 
00610010 
_QJDiJifla2iL. 
006J0030 
00610040 

hoaxdoso 



BEGIN 



ARRAY DYNAMIC CI UJ»EXP[I ;15 3,UPP£R[ 
-LLULlX,p Itl* Jt.J+1'KIKtWl'lf l'-i- ]j 



5U+J3* 



BOUNDf 13' *1;mINI/5C-103*-: 10; MONUS C-133*- 13* 

SPLIT[ HU 11; LIMITC 10233* 24; 

TE MPCM <- l; TEMPC23 » inJT£fr,PC3l «• 1 3 1 TEMP [ 4 1» H 



TEMPC53* 

TEWPC63* 

J E MP L7 3* 



24 ; 

DYNAMICL6J*- 6; 
E XP L 15-) t 1 5 * 



00610060 
00610070 
-CUX610080 
00610090 
00610100 

.006101X0- 
00610120 
00610130 

-0 Q61 014JQ. 



TEMP[83 * UPPERL73 «■ 7i 

TEMPC93 * DIMlca*7#7*l#l3*277i 

EM J 



FILL ANS[*] WITH GCTl> 0CTl2, 

UCT6' UCT17, 
PNO -61 {CVN <• 9; VERIFY 



OCT 15* C1CT13, DCT30# 
(KIT, CCT4ii5; 



00610150 
00610160 
00610170 



end; 
•rocedure p62; 

.-BEGIN 



00610180 

00610190 

Jlii6.li3.200 



COMMENT SWITCH DECLARATION 



IA NOV 26 62; 



00610210 
00620000 
Q Q6 20010. 



INTEGER Xl# X2» X3, X4, X5> 00620020 

LABEL Ll*L2*L3*L4*L5»LC*L7^L8*L9»Li0*Ljl#Li2#Ll4*LLl*LL2»tL3* 006 200 30 

LL4» LL5,LAg,UB i ; OQ620040 

SWITCH S2 FORWARD* 00620050 

SWITCH SI «-Ll*Ll*Ll*Ll*Ll*L2,L2,L2#L2*L2,L3#L3,L3,L3,L3,L4,L4, 00620060 

L4>L 4»L4*L5*L5»L5'L5»L5f IF Xj*X 2 THEN L6 ELSE L7, 0C36 2.0 Q.7.Q 

L6»L6»l6*L7'l7*L7'L7*S2CxI + 2J'S2[3J#l.8'L8'L8*L8'l8* 00 6 20080 
L9#L9»L9»L9^L9#LV»L10*LlC»LlO'LlO#S2C4]#S2ta]#Lll# 00 6 20090 
L 11*L11JLU*L11»L12»L12'L12'L14»L14»L14»L14; 00620 l OQ 



SWITCH S2 

xi «• i; 
X2 * 2; 



♦ LU#LL2#LL3»LL4»Sl[X4xl3 + nJ 



X3 * 3; 

X4 4. a; 

X5 + 5; 



00620110 
00620120 
00620130 



go to sun; 

til TEMPC13 *■ i; 
IF Xi > 1 THEN GO 



00620140 
00620150 
00620160 



to lab; 



00620170 
00620180 
0Q620190 



XI * xi+i; 

T£MP[23 «• TEMPCll + i; 
GO TO SI CXI 3 ; 



00620200 
00620210 

06 20220 



LABJ GO TO SU63; 
L2« TEMPC33 * 3; 
GO TO SltX3xi»+X53; 



00620230 
00620240 
Q6 2Q 25Q 



L3J TEMPC4] «■ 
GO TO SU233; 
_L5J T EMPI!?] «• 



JLi_ 



GO TO SU163; 
L4I TEMPC63 * 
GO TO St [263; 



00620260 
00620270 
00620280 



6; 



00620290 
00620300 
0062031Q 



• • 



r 



>r 



L6S TEMPC7] ■ 

xi *■ xi-i; 
on to suariij 



7; 



171 TEMPt§]«-8; 
GO TO SI C 343 ; 

LLU TEMPm » 



00620320 
00620330 
006 20.340- 



iLL 



IF Xl> 1 THEN GO TO LABI) 

xi *■ xi + i; 

T E MP [1 03 «• TFMPrq l t li 



00620350 
00620360 
00620370 



GO TO SU35J; 
LA81: GO TO SiC37j; 
L8» G O TO SU 4 ?1i 



00620380 
00620390 
00620400 



00620410 
00620420 
00 6 20630 



10 
11 
12 

13 
14 

t b 
IB 
17 



[19 
20 



L9* TEMPCU] * li; 

GO TO S1C483; 

U151 GO TO S1C5U; 



LL4J TEMPC123 * 12; 
GO TO 82(53) 
_kilJ TEMPC13] <• 13; 



00620440 

006iJ0450 

■ QQQ2046-a 



GO TO S1C593; 
L12> GO TO SI [64]; 
,LHI-JTEMP [14 3«-14; _ 



00620470 

00620480 

.0 Q6 20 4 .9iL 



^0500 



0Q6 

00620510 

.QQ62052Q 



LLU CL2I 

FILL ANS C*] WITH QCT1, UCT2, 0CT3, 0CT4, 

OCTlO* O CTll* 0CT12* 0CTi3* 0CT14, 0CTl5* 



0CT5, 0CT6, 0CT7, 

QCTlAi 



00620530 
00620540 
00620550 



22 

23 
24 



25 
26 
27 



28 
29 

JO 

31 

32 

33 

34 

35 

36 

37~ 

38 

39 

40 

41 

42 

43 



46 

47 



SO 
51 
52 
53 



CVN ♦• 14; 
PNO <- 62; 
VERIFY 



ENO 
PROCE 

B£fi 



00620560 
00620570 
00620580 



; 

DURE 
IN 



P63; COMMENT SWjTcH LIST EXPRESSION EVALUATION* 5,3.4 CCZ) 



LABEL Ll> L2» 
INTEGER 11/ 
SWITCH SW1+IF 



THEN L3 ELSE 
INTEGER PROCEDURE f(Il)i 
INTEGER Ilj 



L3# L4» Lb; 

11=1 THEN LI ELSl IF 11=2 ThfN L2 ELS L IF 11-3 



00620590 
00630000 

Q63 0Q1Q 



00630020 
00630030 
00630040 



L4) 



BEG-IN F*I1«-TEMP[IJJ*I1-1 ENU, 
SWITCH SW2 FORWARD) 



00630050 
00630060 

0063 0070 



SWITCH SW2*L5*SW2CFCI1)]» SW2 C FCI1)J; 
IU2J GO TO SW2CIU; L5 l TEMP t 13* 1 1 + li 
FOB n»l STEP 1 UNTIL 3 DO 



BEGIN GO TO r~S Willi * 
Ll« BEGIN TEMP[33*Ili GO TO L4 ENC> 
_L2i BEGI N T E MP[ft]»UJ GO IU l « END) 



00630080 

00630090 

0Q 63O 1Q0 , 

00630H0 

00630120 

00630130 



L3t TEMPC5]«-Ili 

L4« end; 

FILL ANSt*3 WITH 



00630140 
00630150 
Q630 1 6Q 



l >U\» t> 3) 



cvn*s; 

PN0«-63; 
VERIFY 



00630170 
00630180 
00630190 



00630200 
00630210 
0Q63Q220 



end; 
procedure 

BEGIN LABEL LI* i.?. 1.3; INTEGER II. 12. 131 HQO t EAM Bl ; 



P64I COMMENT 5.3.5 SWITCH ScQPE> C. *EThKaEUS# 11/23/62 ) 



00630230 
00640000 
006400 10 



56 



swi 



SWITCH 

T.CH SW2 
LABEL 



SWI «■ llr 
SW1CI1J, 



L2' 13* 
IF Bl THE.lv 



SWUI2] ELSL SW1CI33) 



II «• 1) 12 ♦ 21 13 «• 3; Bl ♦ TRUEi 

BEGIN INTEGER II* 12* 13; BOOLEAN Bl) 
II » 21 T2 » 3) 13 » 11 Rl » FALSE) 



00640020 
00640030 
0Q640Q40 



00640050 

00640060 
00640070 



& 



f 



w 



10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 ~ 

32 

33 

34 

35 

36 

37 ~" 

38 

39 

40 



45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 



GO TO 



L3; 

.O.QL 



GO TO SW2CI11> 



Lit TEMPcn « i; GO TO L4J 

L2» TEMP[13 «■ 2; GO TO L4/ 
.L31_T£MPXU_±^J 



L4J 

end; 



FILL ANSC*] WITH 0CT2; 
CVN 4- \i PNC «• 64} VERIFY; 



PROCEDURE P66; COMMENT LABEL DECLARATION EK X? JAN 63* 

BEGIN 
_ INT EGER Xhl.YJ 



LABEL Ll>L2,L3#LASl,LAl,LA2>LBi; 

SWITCH SW1 «■ LA1,LA2; 

PR.D.C EDllflL-EUEJPJLLL 



BEGIN 



INTEGER FPli 

I 

-LABEL LLlfl.L2i- 



FCR PQR*PQR+1 STEP 

TEMPCPQR+13*P«R*i; 

- FP1 t FP 1» U 



1 UNTIL 5 UO 



GO TO 
LL2: 



LL1 



end; 



LA2» i*o; 

phd; 



BEGIN 



LABEL 
GC TO 



LAW 

swicu; 



LA 1 1 TEMPU3J + ill 



GO 



end; 
-TJL-LBJJL 



LAI : 

lbh 

JLL..L1 



TEMPC123 

xl *■ x; 

jJLi 



12/ 



L2« BEGIN 



INTEGER YH 
LARFL I a.LS.I 6. 



GO TO im 
TENPC 14 J «- 100; 
JJU Y l + 2; 



L^TJ 



GO TO 
L5i 



L6; 

BEGIN 
LABEL 



U 



GC TO 17) 
TEMPdb] 4- 101> 
L7» TEMPI73 * 7 



GO 



GO TU 
LST» ENC; 

tq last; 



end; 
go to lst; 

J^6J TEMPE63 



» Yl*3J 



ls; 



L3I TEMPC8J * 8} 

GO TO L2J 

LAST! TEMPI 9 3 ♦ 91 



00640080 
00640090 

.XLOJ&Mi-QC. 
OO64OHO 
0064012C 

_00_640lJ.Q.. 
006*40140 
00640150 
00640 *60 



00660000 

00660010 

-OO-MSO-ZQ, 



integer pqr/ 
pqr«-o; 

LUL' 1.E. KP1 = 1 THLN GO TO LL2/ 



00660030 
00660040 

_ O_a6j2.0-O5_Q 

00660060 
00660070 

._.a£&6.aa&a- 

00660090 
00660100 

__Qfl6_6JLUJL. 
00660120 
00660130 

Q_Q6AQ_U.Q... 

00660150 
00660160 

..._..ao66<uzo 



00660180 

00660190 

lflM2M 



0066021C 
00660220 
006 60230 



00660240 
00660250 
00660260 
00660270 
00660280 
-..0066029.a.. 



00660300 

00660310 

-006 60 32 Q 



00660330 
00660340 
QQ 66 Q 35Q- 



00660360 
00660370 
00660380 



00660390 
00660400 
00660410 



00660420 
00660430 
00669440 



00660450 
00660460 
00660470 



00660480 
00660490 
00660500 



T< 



• • 



ft 

2 
3 



BEGIN 

LABEL LCi; 
BFG IN 



00660510 
00660520 
00660530- 



LABEL LCi; 

GO TO lci; 

TEMPC163 «• 



jjll 



00660540 
00660550 
00 66QS60 



end; 

G O TO 



LCli TEMPCIOJ * 10 

lci; 



00660570 
00660580 
00660590 



t 

8 

9 

10 

11 

12 

13 

14 

IIS 

|16 

II 7 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 " 

32 

33 

34 

35 

36 

37 " 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

67 



eno; 



TEMPCIM 
LClt TEM 



♦ 1041 

PtlU «■ 



li 



00660600 
00660610 
0Q6606 20 



7 

8< 
9 
10 

"<" 

12 

13 

,4 | 

15 

16 

17 { 

18 

19 

20 ( 

21 

22 

23 | 

24 

25 

26 ( 

27 

28 

29 ( 

30 

31 

32 ( 

33 

34 

35 ( 

36 

37 

38 ( 

39 

40 

41 

42 

43 

44 { 

45 

46 

47 i 

48 

49 

50 ( 

51 

52 

53 ( 

54 

55 

< H < 

57, 



FILL ANSC*1 WITH 0CT0> 0CTi»0CT3#0CT«»GCT5> 0CT6, 0CT7> 

OCTlO* OCT 11* 0CTl2» GCT13' 0CT14* OCTO* UCTOj» OCTO* 

octo» ccto; 



00660630 
00660640 
00660650 



CVN «. 17; 

PN0 «■ *6; 

VERIJ-Y 



00660660 
00660670 
00660 6fl0 



ENO; 
PROCEDURE P74; 
BZ&LH 



COMMENT USE OF INPUT FORMAT PhKASE A, DEC 11 1963; 



0066069C 
00740000 
IIILZAQ&UL 



FORMAT 



integer d; 

IN FIA( 

EARL 



2<2A2)*1C M KASTUR«>2A5))# 
31 .?41 .Am: 



LI*>T 



LlNACFQR 

LlNB(FOR 

■-STREAM-PROCECU 



2A2# 
3f?A3l.2Al.AS3 



£L 



U N T I u 
UNTIL 



BEGIN 



D*l STEP 1 

D*9 STEP 1 u.iia L u uu 
FQRMATAFlLLEtF I LLA )] 



8 JC TEMPtQJ)' 
15 DO TEMPED]); 



00740020 
00740030 
00740040 



LCCA 
LABF 



QS, OR* 
LltL6i 



0. 



00740050 
00740060 
00740070 

00740080 
00740090 
OQ74Q100 



COMMENT MAKE 3 BUFFERS OF FILE FOUMMY 

lis si* filla; skip 2 sb; comment point 

IF SB THE N B EG IN SK I P 4h S B/ 



present; 
to pr bit; 



IF SB THEN BEGIN SKIP 48 SB; 

IF SB THEN GO TO L6; GO TO LI 

e nd ; go TO t.i 



00740110 
00740120 
00740130 



00740140 

00740150 

■ 00 74 016.0. 



COMMF.N 
L6t 



T FILES ARE 

si* filla; 



end; go to li ; 

now verified as present; 

m t luc a; os «■ 3 wps; 



00740170 
00740180 
00740190 



DI«-«; COMMENT 
DS»40 LIT "B"; 
PS»40 LIT W C"J 



FILL BUFFER It 



00740200 
00740210 
0074073Q 



di «• qr; comm 
ds*28 lit"aab8 
m» qs; comm 



ENT FILL BUFFER 2; 
IAA2AAACXXXXXXAH232AAA5"; 
ENT FILL BUFFER 31 



00740230 
00740240 
0074Q250 



DS*l9 LIT W 123123222222210*3/+"; 



end; 



00/40260 
00740270 
00740280 



formatafillecfoummy); 

read(fdummyc1#*3»fia#lina); 

R£AO(FDUMMYt2»«3»FlB>uINB); 



00740290 
00740300 
0Q7403 1 Q 



FILL ANSt*] 



WITH 0CT2121# 0CT2222* 0CT3121, 0CT2102, 0CT2121* 00740320 
0CT2l23» 0Cr2i0lOl02O3# 0CT0221212105* 00740330 

QCT0l02Q3> QCT010203> QCTQ2Q202/ QCT17Q2J7, 00/40340 



0CT17* OCTl* 0CT0O53036120; 



CVN*15; 
PNO * ?4J 



00740350 
00740360 
0074Q370 



VERIFY 



end; 



PROCEDURE P75; COMMENT INPUT FORMAT PHRASE Ot KM* DEC 10 1963* 



00740380 
00740390 
00750000 



• • 



ft 

7 
3 
4 
5 
6 
7 



10 
11 
12 
13 
14 
15 
16 
17 
18 



19 

20 
21 



22 

23 

24 

26 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 " 

38 

39 

40 

41 

42 

43 



.EM 

LIS 



BEGIN 

mat IJS 

T 



IN 



TEGER D; 

F0RMDC0. I3,2D>I6,1(1CU) ),?C"KASTUK" n* 



ST 



FQRMECK3D, 
IDCFOR 0*1 
REAM PROCEDURE 



13))* F0RMF(I7*2D) 
STEP 1 UNTIL 2 DO 
FORMATFILLD CFIU) 



TEMPLD3); 

; 



00750010 
00/^0020 

00750046 
0075Q05Q 

JKLZ.50Qii.CL. 



BEGIN 



LOCAL 

., W . n . CLE* Jg . n 



S, QR» 
ULA 1 



q; 



COMMENT MAKE 3 BUFFERS OF FILE FDUMMY PRESENT* 

LU si«- fioj skip 2 sb; COMMENT POINT TO PR bit; 

IF SB THEN BEGIN SKIP 48 SB; 



IF SB THEN BEGIN SKIP 48 SB; 

IF SB ThEN GO TQ i_6; GO TO LI 

Ihm fi t] TU L J 

end; go to li ; 
comment files are now verified as predsenti 

._____._ St» ftp; ot+lqc as ns» ^ wns; 



00750070 
00750080 

JJfllS.flQ.9Jl. 

00730100 

00750H0 

.-CLal5J_J_2JCL 



00750130 
00750140 

O0.Z5.Q.1.50 

00750160 

00750170 

._a_l_'__JUi____ 



DI* Q; COMMENT FILL BUFFER li 
OS <• 33 LIT ,, ABC0EFG123lBCQEFGHtJKLMN0Pl234561"; 

____ CL S± 1 Q LIT "PQRSTUVHXY"/ _____ 



00750190 
00750200 

_QXL7JLtt2JLCL. 



OS 

DI 

_Q_. 



«• 37 LIT 

♦aR; co 

» ?7 LIT 



n x«; 

mmEnt 

"123 



FILL SECOND BUFFERi 
aS67fi 19 365678 1 3 ^iiS67a00Qw; 



00750220 

00750230 

JKL7_5..Q_2-4rL. 



D 

DI 

-0.5. 



S«-10 LIT 

♦as; c 

.«• 23 c XT. 



"A"; 

OMMEN 

"123 



T fill Buffer 3; 

45<?7,i AAAA AA Al A 2B3C 04"; 



00750250 

00750260 
.QA.7 5 0.2 70 



FILL 



end; 
readcfdummy[0**)*fdrmu*ld); 

READ(FDUMMYCl**.*FURME,TEMPC3])i 

-JEA DC Fn UMMY E 2**3fl r ORMF>T £MP [ <>}?; 

ANS [*] WITH 231* 234561, 000, 123*567; 

CVN* 4; 

Pj-J_-___.-7-j_J 



00750280 
00/50290 

-007-5.Q3.a0. 
00750310 
00750320 

_...aQilO_llQ- 



VERIFY 

end; 

PROCEDURE P76i 



COMMENT FORMAT PHASE E EK 2 JAN 63i 



00750340 

00750350 

,_Jj_7_..--_-_i.Q. 

00750370 
00750380 
0076 0000 



BEGIN 



ARRAY ACOUJ, BCOU.* CCOsSJi 
REAL X*Y#Z*R>W*Xl»Yl*Y2>Y3i 



00760010 
00760020 
00760030 



INTEGE 
FORMAT 
FORMAT 



r 1; 

IN 

In 



F0RMKE8.1* 2t8.i> 2(E0,1*2E10.3)); 
K0RM2(Ell.4*3El3,6, E i2.5,El0,3,Ea.n; 



00760040 
00760050 
00760060 



• 



45 

46 
47 
48 
49 
50 
51 



LIST LIlCX*r#Z*R,FGR WO STEP 1 UNTIL 1 00 A_I-» W* FOR 1*0 00760070 
STEP 1 UNTIL I 00 BCD); 00760080 

LIST L2 < XJ_> FOR I » Q STEP 1 UNTIL 2- DO C-I3-, Yj# Y;g, Y3)J 00760090 



STREAM PROCEDURE 
VALUE Xi 



STPKF1* X) 



BEGIN 



00/60100 
00760110 
00760120 



52 

53 
54 



55 
56 



LABEL A* B, Ci 

di+fw si+lqc x; si*si+7;if SC 

IF SC»»8» THEN GO TO BJ GO TC C; 



« A » 



THEN GO TO A* 



00760130 
00760140 

00760150 



A> DS*38 LIT "-0, 10+08 0.80+01 0,59+00-0, 1? 03 0.645"; 00760160 
0S«-38 LIT "0 02+0,1650 02-0. 10-04-0, 1730+07-0,200"; 00760170 
OS* 4 LIT "0 Qq"i GO TO Ci 0076018 



61 



y_ 



0S*34njT "-Q.2S250+G2 0,8885200+03 0,7351259"; 00760 190 
QS + 38 LIT " 03 0, I36421P+06 0.162500 02*0,6250+01" i 00760200 
QS+8 LIT " 0.10 01"j _ 00760210 



2 
3 
4 
5 



10 

I 11 

12 

13 
! 14 

ir £> 

16 
17 
18 
19 
20 
21 
22 
23 
24 
26 
26 
27 
28 
29 
30 
31 
32 
33 
34 
36 
36 

37 ~ 
38 



40 
41 
42 
43 ~ 



45 
46 
47 
«8 
49 
50 
51 
52 
53 
54 
55 
56 
57 



C: end; 

STPlCFCUMMYtO»*]#"A' , )i 



READ(F0UHMY[Q**J>FURH1,LI1 ); 
STpl(F0UMMY[0**]*"B")i • 
READCF0UMMYC0**3*FQRm2,L2); 
TEMPtll * Xi 



00760220 
00760230 

JiQlA&ZAQ. 



TEMP[2] 

TEMP[3] 

. TEMP[41 



y; 

z; 

JLL 



00/60250 
00760260 
00760270 



temp[7] * n; 

FOR 1*0 STEP 1 UNTIL 1 
BEGIN 



00760280 

00760290 

-00760300. 



DO 



EJLQi. 



TEMPCl+5] 
TE^PCI*8] 



acid; 

buj* 



00760310 
00760320 
007603 343- 



TEMPU03 * Xli 
FOR I * STEP 
TEMPM43 » Yi; 



1 UNTIL 2 00 TEMPCI + H] ♦ C[IJ; 



TEMPC153 
TEMP[16] 
_F_ULL._AN1 



» 
* 



Y2; 
Y3; 



1 *1 WTTH QCr30b«6ll3 2 0OO00OO , r.T ] 1 jj OOOOOOQOOOnn. 
OCT1010000000000004* OCT2000Q00000000144* 

OCT 1121004000000000' OCT n 32040000000000* 
OCT 3222476 1326 10707, ncT 306646?720000000 . 



CVN 

PNQ 



16; 
76; 



OCT 31 137 2O0OO00OO00* CC T 30 10000000000312* 

OCT H1157041217270 3* OCT lO lOOOOOOOO 1 3 37 1* 
QCT1074123OQ0 0000 0* OCT 1 1 32020000000000* 
OCT3146200000000000* OCT 1 141000000000000; 



00760340 
00760350 

00760370 
00760380 
00760390- 
0G760400 
00760410 
.0076042^- 
00760430 
00760440 
007 60450 



VERIFY 

end; 
procedure p 78; comment 



BEGIN 
FORMAT IN 



INPUT FORMAT PHRASE I* KM OCT 23 63; 



00760460 

00760470 

007 60460 

00760490 

00760500 

0076Q510- 

00760520 

00760530 

00780000 



INTEGER 



LI*T 



d; 

FORM 
F 



STREA 



* 

^ .-■lC l( 21 p, 1(21 2,1 2)> 211*2(212- -(2(lC2l2) ))))>- 
FORM2(2I2*IO,2(2C2(I1)))); 
IKFOR 0*1 STEP 1 UNTIL 2/ 00 TEm^CD])* 
L2(FQR D*2B STEP 1 UNTIL 38 ■" 
M PR8CEDURE F0RMATK F I) ; 



-UP T £M P |; L 3 ); 



00780010 

00780020 

.QQ7.ftflfl.afl. 

00780040 

00780050 

.QQ780Q6Q. 



BEGIN 



LOCAL QS*QR* Qj 

CCWMENT MAKE THE 3 SUFFERS OF FOOMMY PRESENT* 
LABEL Ll* L6; 



00780070 
00780080 
00780090 
00780100 
00780U0 
0Q7801 2Q 



LABEL LI* L6; 00780UQ 

LI I Sl*-Fi; SKIP 2 SB; COMMENT PQjNJ TO THE PR BIT; 00780^20 

IF SB THEN BEGIN SKIP 48 SB; 00780130 

IF SB THEN BEGIN SKIP 48 SB*" 00780140 

IF SB THEN GO TO L6J GO TO Ll* 0Q780150 

ENO* GO TO Li; 00780160 

END; GO TO LI* 00780170 



end; GO TO LI* 
L68 SI*FI; 0___UjC g__ PS* 3 rtOS; 



oi* q; 

DS*40 LIT "A«>* 
03*40 LIT "A*; 



di *qr; 

DS *36 LIT 
DS* 1 6 L I T 



M l* + 2- 3* 2+ 3-4- 5*6+ 3+ 445465 35455566 162"*" 
"636465666S644647"* DS* 28 LIT "Q»; 



end; 



0I*Q5i 

DS ♦ 18 LIT "1516*12345213766*5"; 



60 


00780180 
00780J90 
00780200 
0078.0210 
00780220 
00780230 
00780240 
00780250 
00780260 
00780270 



li 



m • 



>r 



2 
3 

4 
5 
6 

"'" 
8 

u_ 

10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 



34 

35 

36 

37 ~ 

38 

39 

40 

41 

42 

43 



44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 



FORMATI(FDUMMY)* COMMENT FILL BUFFERS rtlTn INFORMATION* 
.REAnCFDHMMYn>*3»FUHHl>Ll U _ 



FILL 



READCF0UMMY[2**3*F0RM2*L2>* 
AN5t*3 WITH 1* 0* 2* *3* 2* 3* ' 

53* 54, 55* 56* 6\ . 



00780280 

00780290 

-fljOiflfliOXL 



■■£VN-«- 38j_ 



65* 64' 
7, 6* 6, 



46' 
G* 



'4* -5* 6* 3* 4* 45* 
62* JLU 64, 65, 66. 



47* 
5> 



15' 16' 12345/ 2' 1' 3' 



00/80310 
46* 00780320 

-00780330—- 



PNO * 78* 
VERIFY 



00780340 

00780350 

J3JH3SUJUL 



JMUL 



PROCEDURE P79* 
BEGIN 

..INTEGER. 



COMMENT INPUT PHKASE Lt JAN 9. 1964* 



00780370 
00780380 
JXO2AQ3 9 0. 



FORMAT 
_LlS_T. 



JUL 



IN 



Fl(2(L5)*L l5)*F2(2L5* M KASTUR"*L5#L7*Kl(iiL5)))* 

F3(2L5, w KASTUR M *L5,L7*l(H2L5))J* 

LlfFflR n»1 STFP 1 UNTIL 3 nQ TpHFtn ly 



L2(F0H DM STEP 1 UNIlL v DO TEMPtD])* 
L3CF0R 0*10 STEP 1 UNTIL 15 QU TE.MPCD33' 

... sxaEAMjPRncEnuHE fu Li nmc(Fi.n6); 



00^90000 
00790010 
£O.Z-fiO-Q-2-Q- 
00790030 

00790040 
JHL79QQ50 



00790060 

00790070 

JM1M.Q&SL 



BEGIN 



LOCAL QS,QR,Q* 
LARFL Lit 1.6? 



COMMENT MAKE 3 BUFFER* OF FILE FOUMMY PRESENT* 
LI I SI*FluG; SKIP 2 SB* COMMENT POUT TC THE 
IF_- S B TH F N BF GTN *K I P 4fl S B* 



00790090 
00790100 
0079QU0 



PR BIT* 



IF SB THEN BEGIN SKIP 48 SB* 
IF SB THEN GO TO L6* GO TO 

. Lfs D * G O Tf l U 



Ll* 



END* GQ TO Ll) 
COMMENT FlLE s ARE VERIFIED AS PRESENT; 
L6: Si <• FLOG* DI«-LOC Q> P S <- 3 fcDS* 



00790120 
00790130 

_00.ZV.OU0. 
00^90150 
00790160 

_Qfl2£Oi_2JL 



DI*Q* COMMENT FILL BUFFER 1* 

DS*25 LIT " TRUEFALSETRUE FALSE TKUE M * 

I -QR* COMMENT FILL BUFFER 2 * 

DS*36 LIT"TTTTT1H11KASTUR TRUE012 3 4F ALSE TRUE"* 



00790180 
00790190 
0079 0200 



00790210 
00790220 
00790230 



DUOS; COMMENT FILL BUFFER 3* 

DS«-39 LIT" THXEFALSXKASTUR TRXX T.RUE 



END* 
FIL LLOGIC CFHUMMY)* 



FILL ANSt*3 
CVN *• 15* 
PN0*T9J 



READ(FDUMMYCO**],F l#tl )* 
READ(FDUMMY[1**3*F2'L2); 
READCFDUMMYt2'»J'F3'L3); 



00790240 
00790250 
T RUE12345l23"j00790260 

"00790270 

00790280 

Q79Q 29Q 



WITH 1*0*1*0*0*1*0*0*0*0*0*0*0*1*0* 



00790300 

00790310 

.00 79032 0, 



VERIFY 



00790330 
00790340 
00790350 



F.NO* 



PROCEDURE P80* COMMENT USE OF FORMAT INPUT PHRASE o; 



00790360 
00790370 
00800000 



BEGIN 

INTEGER D* 
FORMAT IN F0l(0*20*2(l CO) ))>FQ2C 1(1(2(20))))* 



00800010 
00800020 
00800030 



LIST LKF6R 0*1 STEP 1 UNTIL 5 DO TEMPtD])* 

L2(F0R D«-6 STEP 1 UNTIL 9 DO TEMPtD])* 

STREAM PROCEDURE FQRMATOFlLL (FO)J 

BEGIN 

LOCAL QS,QR*Q* 
LABEL Ll* L6* , 



00800040 
00800050 
00800060 



00800070 
00800080 
00800090 



# • 



h 



• 



2 

3 

4 

6 

6 

/ 

8 

9 
10 
11 

"- 

Il3 

\u 
n5| 
|16~ 

117 



59 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 " 

32 

33 

34 

35 

36 

37 ~ 

38 

39 

40 



41 

42 
43 



45 
46 
47 
48 
49 
50 
51 
52 
53 
>4 
55 
56 

A 



COMMENT MAKE 3 ByFFEHS OF F I L t. PRESENT; 

Lit si*fq; skip 2 sb; comment point to the pr bit; 

If- SB THEN BFtilN SK IP 4fl SBJ 



IF SB THEN BEGIN SKIP 48 SB; 
IF SB THEN GO TO L6* GO 

END J GO TO L)i 



ooeooioo 
ooaoono 
on6CiQiafl_ 



to li; 



END> GO TO Li; 
COMMENT FILES AR£ NOW VERIFIEO AS PRESENT; 
Lft» S-l±£OJ Oi»i.ur Qj 0S» 3 wos; 



00800130 

00800140 
nnaoQi sn 

00800160 

00800170 

ooauoiao- 



di*q; comment fill buffer i; ooeooi9o 

DS*32 LIT "000i234500023456000678900007890l«j 00800200 
0S»fl UT "QQQ?345fi"l nnflnn 21 n 



di*«r; comment 

05*40 LIT "A"; 
DS»40 LIT "A"; 



FILL BUFFER2 



e nd; 



OX*gSi COMMENT FILL BUFFER 3; 

DS*32 LIT "OOOH111000222220003333300044444"; 



00800220 

00800230 

-QQ6Q0240. 



FQRMATOFluL (FDUMMYj; COMMENT FILL BUFFERS KITH INFO; 

READ CF0UMMYL0**3»FQi»ui?/riEADtF0uMMYr2»»3»F02»L2); 
FILL ANSt*] WITH QCTOOOOOOO 102030405* 

QCTQOOOQOO 203040506* OCT 0000000607 101 100* 
nCT00000007101 10001 j nr.TnO Q000-02030fl0SOft. 



00800250 
00800260 
00800270 



00800280 
00800290 

00600300. 



C VN4-9; 



OCTOOGOOOOlOlOlQlOl* 
OCT 0000000 30 30 30 30 3* 



OCT0000000202020202* 
OCT00000004040 404C4; 



00800310 
00800320 

00800330 



JlNHI. 



PN0*80; 
VERIFY 



00800340 
00800350 
00800360. 



PROCEDURE P8i; COMMENT FORMAT In PHRAiE X, jAN 17 1963, KM.; 

BEGIN 
FORMA T IN FCRM1 (1CA6)* 1X6* I_4* X1* X1*F9.2, 3(1X13* 



00800370 
00800380 
00600390. 



COMMENT 



l(l(F4.p)* 2CXU# F4,2# L5, 2C K 1C X 1 ) ) >#L5) ; 
CHANGE INPUT INFORMATION TO HEFLECT CHANGE OF L4 TO L5 
CHANGE WAS MAOE BECAUSE L* IS NOT ACCEPTABLE TO COMPILER 



NOTE MADE OF THIS; 

INTEGER I; 

STREAM PROCEDURE TRANSTOBUF F ( SI RT ) ; 



BEGIN 



00810000 
00810010 

00810030" 

00810040 

.Q.Q81QQ5Q,. 

00810060 
00810070 
00810060 



DI 
DS 



strt; 

32 LIT 



OS ♦■ 24 LIT ".3S4+.2S 
END ; 
TRANSTCBUFFCFDUMMY[Q>*] ) , 



"A8CPEFGHS$$Sl416*t+0 t 95e+02$*S+2*; 



TRLESlFALSt 



00810090 
00810100 
00810110 



READ(F0UMMYC0**3»F08M1#F0R 1*1 STEP 1 UNTIL 8 DO TEMptlJ); 
COMMENT **** VALUE OF TEMP 4 CHANGED TO MATCH ThE CONVERT ROUTINE 

FR OM 0CT1142234163146314 TO OCT 1 14223 1 463 1 463 1 4 \ 



00810120 
00810130 
00810140 



FILL ANSC*] WITH OCTQ0002 1222324252ft , UCT2610, 0CT137, 

OCT 1142231 46 3146315* OCT 1 15 2000000000000, 

qcti* or.ro; 



00810150 

00810160 

jO Q 3lOl7 Q 



CVN*7; 

PN0*81i 
VERIFY 



00810180 
00810190 
00810200 



end; 
procedure 

BEGIN 



00810210 
00810220 
Q081Q23Q 



P9l/ COMMENT FORWARD REFERENCE DECLARATION* KM. NOV 28 



LABEL L1*L2*L3*L4*L5,L6*L^; 
INTEGER J*K; 
PROCEOURF Fr.RW fFnRi>F0R2); i^tfrfr 



00810240 

62.;00910000 

QQ91QQ1Q 



fflKl, F0R2; FQRtoARm 



00910020 
00910030 
Q9 1QQ40 



"n 

2 I 
3 
4 

6 

7 

8< 

9 
10 



2 
3 

4 
5 



10 
11 
12 



13 
14 



16 
17 
18 



19 
20 



22 
23 
24 
25 
26 
27 



28 
29 

30 

31 ~ 

32 

33 



34 

35 

36 

37 " 

38 

39 



INTEGER PROCEDURE FOwD 

INTEGER FWDi; 
. . . ..REGIJi 



C K W D I ) i 



INTEGER I ; 

I*0; IF FWD1«5 THEN 

FQH D* FWDI * 1 / 



F0Rh(F*«01*X)i 



end; 

PROCEDURE FCHWCF0Kl,F(jh2); 

I NTEGER FQm* FQ R2; 



BEGIN 



ENn; 



FORI* F0R2 + 3 i FUR2 * FOwDCFORD* 



BOOLEAN BQOi 

BOOL* true; 

,j»i; _K*a; 



FORW(JfK); 

j*-3; k«i; 

GO Tq I F BUCL 



TLMPin «• j; TtMprai *k; 

THEN F0RVDC3 j_EL5E FCVUflUUj; 



LI! TEMPC33«-5 ; GO TO L7; 

LI* TEMPC3] «-10; 

kll _ J»4; K»2; GO TO IF FALSE THEN Lb ELSE FQRVDC K + l 3 ; 



L2! 
Lb: 

-L3_L._ 
FILL 
CVN . 



TEMPC4J 
TEMPER] 



♦■ 4; 



GO TO L3i 



ANSC* ] 

■ a ; 



wlTH QCT3# OCT** 0CT5, QCT4J 



PNU «■ 9 1; 



PROC 



VERIFY 

end; 

EDURE_P5«; 



C i«i i v E N T PROCEDURE h E. A D 1 N lj 



EK 



2fl NUV 62; 



BEGIN 



BOOLEAN 
REAL X; 
PROCEDURE 



t; 



PKf Pl*FP2) M FP2' , (FP3*FPa#FP5'FP6) ,, FP6 w <FP7J; 



00910050 
00910060 
00 9UU)_ZH. 



00*10080 
00910090 
QQ91 01 QQ 



00910110 
00910120 
QQ91Q13Q 



SWITCH FOVURO FORWARD; 
SWITCH FORVC «- Ll» L2» FOVU&DCJJ* L3; 
-SJlLTCH FDVURP t ULd-5 r F QHV D[ ft 3 > FQ RVIUK3; 



00910140 

00910150 

_Q_Q9.LCa£IL 



00910170 
009i0l80 
-..04X91.0-LS.0- 
00910200 
00910210 
00910PPC 



00910230 
00910 2^0 
00910250 



00910260 
00910270 
00910280 



0091029C 

00910300 

.-Q0-9x.U3.10- 



00910320 
00910330 
0091 0340 



0091035C 
OC910360 
00940000 



00940010 



INTEGER I>J,K; 


00940020 


ARRAY AC0I23; 


00940030 


INTEGER ARRAY 1 A [ : b 3 ; 


009^0040 


ALPHA ARRAY AAC0S2]; 


00940050 


BOOLEAN ARRAY dA[0:ij; 


CG94006G 



00940070 
00940080 
00940Q90 



49 

50 



52 



55 
56 



VALUE FF1>FP2; 
INTEGER FPi; 
HEAL FP2; 



ARRAY FP3C03; 
INTEGER ARRAY FP4C*3i 
ALPHA ARRAY FP5[0j; 



C 9 4 1 C C 
00940HO 
00940120 



BOOLEAN ARRAY 
BOOLEAN FP7; 
BEGIN 



FP6[03; 



00940130 
00940140 
00940150 



TEMPC13 
TEMPC21 
FP3£03 ' 



FP4C43 < 
FP5[0] «• 
FP5C13 «- 



• FPU 

• FP2i 
FP.3C13 



009^0160 
00940170 
0Q94Q180 



..«-:.FP. : 3[23 '.» lj' 



00940190 
00940200 
00940210 



Hi 

"One"; 
"Two"; 



FP5C23 «• "THREE"; 
FP6[03 ♦ FP6ftl3 * 

FP7 » false; 



00940220 
00940230 

0094024Q 



true; 



00940250 
00940260 
00940270 



ti\c; 



^ 



■/ 

8 
9 
10 
11 
12 
13 
H 
15 
16 
17 
18 
19 
20 
21 



22 
23 
24 
25 
26 
27 



28 
29 

30 
31 
32 

33 
34 

35 



37 
38 



42 
43 



46 
47 
18 
(9 
50 
51 
52 
53 
54 
55 
56 



_l__i_ 



COMMENT CLUGE CARD REMOVE LATER ********; 

COMMENT CLUGE CARD REMOVE LATER ********; 

COMMENT CLUGE CARD REMOVE LATER ********; 

rnwurnT r> nrlf r a on nr..ni,_- , * t r- _> 



AC03 «■ ACQ] ; 
IACOJ + IAC03 ; 
A A.QJ * AA.03 ; 



00940280 

009<4029C 

____J_J-0_Q. 



COMMENT CLUGE CARD REMOVE LATER ********; BACOJ <• BACO] > 
COMMENT THE ABOVE CARDS WERE INCLUDED TO q_ T ARGJNO PRESENCE BIT 
WHEN AN ARRAY WAS FaSSED AS AN ACTUAL PARAMETER ]_fl A PROCEDURE; 



00940310 
00940320 

Q Q94 Q 33C 



009*40340 
0094035C 
00940360 



TEMPt3] 
TEMP.43 



a#ia,aa,ba,t)* 

«■ aeij; 

t IA1A11 



TEMP[53 «- AA[U; 

IF* BAtO] THEN TEMP[6] «- "1'kU"; 

IF T THEN TEMPC7J <- w £HH w ; 



00940370 
00940380 
00940.390 



TEMP.83 * M F«; 

FILL ANS[*] WITH OcTl# OcTl44# QCT3» DeT4» 

0C T635 164* QCTO, QCT26J 

CVN «■ 8* 

PNG <■ 94; 
___!£_ 



009*40400 
0Q94041G 
00940420 



0CT636646# 



00940430 
00940440 
00940 -50 



end; 
procedure p95j comment 5«12»3.1 stream value part. 
regin real stream pror.-oure ______________ valuf v; 



00940460 
0C94047C 
0Q9_.0480 



C. ZETHRAEUS* 



BEGIN SI+ LCC V; DI «■ LUC GETVAL; US ♦ 1 tNCS end; 
REAL A*B»C; 80CLEAN D* E> Ft ARRAY MATRIX U»33; INTEGER 
REAL PROCE DU RE IDEnTITY(X); REAL X ; lOtNTTTY «■ Xi 



00940490 

l2/3;o0V50O0O 

0095001 n 



BOOLEAN PROCEDURE EQUIVALENCE (A); 
BOOLEAN A; EQUIVALENCE «■ A; 
TEMPI 1J » GETVAL LIU 



00950020 
00950Q30 
009.0040 



A* 2# TEMPC23 * GETVAL(A); 

B<- 3; TEMPC3] «•■ GETVALCIDENTUY(B)); 

TEMPC4] «• __j_T______i_x_. ±M±> 



FOR I * i STEP 1 UNTIL 3 DQ MATRIXCI3 
I * 2; TEMP.53 ♦ GETVALCMATRlXtn.; 
TEMPC6]« _rTVAL.( 1 19 . _ T 43 : 3 ] ) ; 



00950050 
00950060 
00950070 
00950080 

0095009C 
J_l__J_tOJl. 



d ♦ e * true; f <■ false; 

TEMPt7] * GETVAL(D); 
TEMP [83 «• GETVAL(TRUE); 



00950110 
00950120 

J_Jl9.5_UJ.fl 



00950140 
00950150 
00950160 



TEMP[9]» GETVALCNOT F OR E ); TEMPC93* TEMPC9 3 . C47 f 1 3; 00950170 

TEMPC103 ♦ GETVALCEQUIVALENCE(D)Ji 00950180 

FILL ANS[*3 WITH QCTl* 0CT2*> 0CT3, OCTf* 0C.12, QCT5, 0CT1* 00950^90 



CVN * lo; 
VERIFY 



PNO 



OCTl» 0CT1* OCTl 



95. 



END* 
PROCEDURE P96; COMMENT STREAM PROCEDURE DECLARATIONS. 
— 5,_?«3.2f DEC 6. 62. KM./ 



0095020C 
00950210 

.0 0950 220 



BEGIN 



00950230 
00960000 
00960010 



INTEGER A* c; 
ARRAY SRCEC0«53» 



DESTlNLi:93; 



wnnwi __J__J_______! U-J'Xm.*»7.> 

STREAM PRBCEOURE CHECKUECLARA Tl QNS (ARY1» AROUT*A*C); 
VALUE A, C/ 
BEGIN 



00960020 
00960030 
00960040 



LOCAL AA»6B#STrt#STKSRC*CC#DDJ 
LABEL LBLl* Lb_2i 

si»aryi> dj[4-aRoj'i; 



00960050 
00960060 
00960070 



TALLY*A; AA<-TALLW T ALL Y*TALLY + AA/ AA*TALLY; 
DS * AA «DS> 

str»di; qi» loc as; di»di+7j os»i chr; qi»strj 



00960080 
00 9 60090 
0Q96010Q 



00960110 
00960120 
00960130 



2 
3 

4 
5 



10 
i 11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 






22 
I 23 

24 

25 
I 26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 ~ 

38 

39 

40 

41 

42 

»3~ 






45 
46 
47 
«8 
49 
SO 
51 
52 
53 
54 
55 
56 



CS*SB CHR; ui*-DI + t)B; bl4-.5I+nb> STR«-0i; |jl«-LUC CCj 
I «- D I + 7 ; S1RSRC«-Si; S14-L0C C; SI*SI + 7i LiS* 1 Chh; 

»T»STR8 st+sthski-.; ;;in-r.r nrT. 



ds*bb dec; di*di + cc; tally«-8bj tally*tally+cc; 
oo*tally; ds* do add; us*, dd num; si+si-dd; 
ni»DI-nDi .DS»nn ihhi ns»nn reset; qa±bb reskti 



0096015C 
00 9 60 1 6 0,_ 



ds*do set; 03<-CC i>ET; ui«.oi*aa; 

IF 6b.SC = U C TpEn C S «■ fcj u A J 
IF TOGGLE THLN US+AA SUB, 



00960170 

00960180 

Jlfl9j&3.lSjQ. 



IF TOGGLE THEN GO TO LBUJ ~ ~ 
DS*3 LIT "BAD"; DS*5 LIT "A"; 

LBLl t DS»3 LIT "COB"! QS»S LTT"A"; 

LBL2: ~ ~ 

end; 

. -LILL. SRCEC* I WITH U<niMM J*M2^MjiA2±jt LC T ^2424242a,J4?4?4 . 

OC TO 33 3 33333333 3 301' OCT 20000000000 1776 3* 
OCTO 1020 30405060 700, OCTO 1020 30707000000 J 
—JTILL. .D£S_LlJiL*_3 WITH OCToooooonononooonV QCTonnonnnnnftm 



009o020Q 
00960210 

00960230 
0Q9o0240 
00960250 



OC1333.3J30COO.O0O00O* 
QCT0l07bl000iU203C4» 
gcTOi02030305ononnni 



QCT01* 
0CT0506O7O077153427* 



a * i; c * i; 

CHECKDECLARATIQNSCSRCEC03* DESTINdJ, a* Cj; 
£flfi_.C» 1 STFP 1 iintT! 9 no tfm p[ct» nrsT Thrni 
FILL ANS[*j WITH 



0096026C 
00900270 
0Q960?8 
00960 290 
00960300 

-QAAfliUiOL. 
0096032C 
00960330 

-UQ96Q.iA0. 

00960350 
00960360 
0096037Q 



■■C V .N»9i__. 

PN0«-96; 
VERIFY 



XNJDJ 



0CI2424242424242424, 0CT2424242424242424 , 00960380 
0cr33333300000O000O' OcTOlo 00960390 

nCTQ1075long?n^n6 1 , Q CTn5n6n7f,nnn37?fl^7 f QJJL6QAQQ 

OCTOi0203030 2 000000# C T 222124212121212 w " 009604 iQ 
0CT2346512121212121; 00960420 

. : , ; QQ96fl l\ 30- 

00960440 
00960450 
0Q96Q46.O, 



PROCEDURE P97; COMMENT 5*12*5.3 SET AODRESS STATEMENT* CCZ, 
BEGIN INTEGER A; INTEGER ARRAY BtU23; 

lJjl£G£8-ATREAM PROCEDURE SETlUC(A); t/Ai he AJ 

BEGIn SI * LCC A; 01* LOC i>ETLyC; OS <■ 1 w q b £i\D; 
INTEGER STREAM PROCEDURE SETSC(A); VALUE AJ 

BEGIN SI <• LCC A: SI - Sc; SF.TSC <• SI FIND; 



12/4/62; 



00970000 

00970010 

J10-2ZQQ2IL 



INTEGER STREAM PROCEDURE SEtDCCA); VALUE AJ 

BEGIN Dl * LCC AJ 01 * OcJ *ETDC «■ DI END; 
..A±1023j F ILL BC * ] WITH QCT3777/70Q0Q00U000, 0CT3123 450000000000; 

TEMP[13 «- SETLCC(A); ~ ~~ 

TEMPC2] «■ SETSCCBC1]); 
TEMP[3] <• SETDCC8L23); 



00970030 

00970040 
009/0050 



00970060 
00970070 
00970080 



FILL ANS CO WITH 00T1777* 0CT377777* 
CVN * 3; 
PNO « • 97 j 



0CT312345; 



00970090 
00970100 
00970110 



VERIFY 

end; 
procedure p98; 



00970120 
00970130 
00970140 



COMMENT STORE ADDRESS 5.12.5,4, C. ZETHRAEUS* 12/4/62; 



BEGIN INTEGER STREAM PROCEDUfllE STOSICA); VALUE A> 
BEGIN SI ♦ A; STQSI * SI END* 
Ml*. 6f R STREAM PROCEDURE STQDl(A); VALUE A; 
BEGIN DI * A; STODI *■ DI END; 
INTEGER STREAM PROCEDURE STQCI(A); VALUE A; 
BEGIN LABEL Ll' Hi LOCAL EXI T ; 

Si * a; ~~~ 
exit ♦ cu 

GO TO Hi 



00970150 
00970160 
00980000 



00980010 
Q0980020 
00980030 



00980040 
00980050 
00980060 



00900070 
00980080 
00*80090 



~*~H« 



i< 



4 
1 



32 ! 
33 
34 
35 I 
36 
37 
38 I 
39 
40 
4,1 
42 
43 
44 ' 
'45 
46 

«l 

48 

49 
BO 1 

51 

52 

53 I 

54 

55 

56 I 

57. 



h 



exit «■ ci; 
GO to li; 
.exit » cii- 



GO TO Lii 

GO TO L2/ 
Lit SI+SI+8J 



OOVfaOlOO 

oovaono 



Cl*EXlT; 



00980130 
00980140 

QQ9 9Q i50_ 



U2I STQCI 

end; 

ARRAY A C t 



SI 



XL 



00980160 
00980170 
QQS>80ifl0, 



7 

8 

9 

10 

11 

12 

u 
13| 



16 



FILL AC*] WITH OCT/77777, 0CT666666* 0^555555; 00980190 
TEMPU] «-ST0SlCA[13); TEMP t23*3TQD I (A [23 )J TEMP C3 3«-5TQC I(A [ 3] )} 00980200 
FILL ANSUT WITH DCT777777i QCT6ftrtf>66» UCT555560; 00980210 



19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 ~ 

3B 

39 



r HLah 



cvno; pno «■ 9e; verify 
end; 

.PJiQCLEJUlR£;jP_ftiL 
BEGIN 

INTEGER i; 
SJBE.AM .iP.B.Q CEnUW£-CHE CJUflfl&l AI E B E N f 

two; 

VALUE FUNC#TWCi; 

_ - -Bism 






( aRaYTFMP, aRaYTf MP?S. 



LOCAL A#B; 
DI*ARAYTEMP25; SI*LOC 
SI»ARAYTEMP2S; DI»LOC 



00980220 
00980230 

— oaasuaaoo 

00990010 
00990020 

FUNa*-QJ^AQ01fl- 
00990040 
00990050 

aQJ-9-0060- 



araytemp; os * 1 wds; 

ARAYTEMPgSJ OS*. 1 WDS; 



00990070 
00990080 
00990090 



DI«-ARAYTEMP2b; DS«-8 LIT "A"; 00990100 

DI«-ARAYTEMP; Ql+Ul+ei SKIP 24 08; OS *■ 24 bET; 00990110 

JLtnii L( Tal ly«-tal l y + i ;2( Ta llI± Ial ly + i; a* t all y ; o&imxztL 



5I«-L0C B; IF SC* "A" 

di*a; ds«- 8 lit "B w ; 
ni*Ai ns»fl lit M d"; 



then jump out; di+bj; jump 
a*dij 



oi«-oi+ func; 
end; 
■1.nj.ege r pr qcfdurf x c a) 



si* loc func; si*si+ func; ds* 6 chr ; 



OUT>;00990130 
00990140 
00990150- 



integer a; 

begin x * a end; 

CHEC KAnDSTATFMfMTCTFMP, TFMPr953. 



00990160 
00990170 
00990180 



jg?)t't)i 



FILL A N S C * 3 WITH 0CT212121212121212U GCT77777777* 

OCT 2222222222222222' QC 2222222222222222* 

QCT2; 



00990190 
00990200 
00990210 



cvn «.s; 

PN0*99; 
VERIFY 



00990220 
00990230 
00990240 
00990250 
00990260 
00990270 



40 
41 
42 



end; 
procedure 

b egin 



PlOO> COMMENT SKIP AODRESS STATEMENT h N B 



00990280 
01000000 

O 1 OOOQ 1 



45 



46 
47 
48 



49 

SO 



INTEGER 
INTEGER 
BEGIN 



i; 

STREAM 



PROCEDURE SKIPPCNOJ; VALUE NO* 



si *nq;comment m 
NO(SI «■ SI +no); 

SKIPP *r SI 



REG AND G REG ARE SET TO VALUE OF NO; 



01000020 
01000030 
01000040 



01000050 
01000060 
01000070 



end; 



FOR I ♦ 1 STEP 1 
FILL AHSt+3 WITH 



UNTIL 10 DO TEMPtj] «• 
OCTlOQOOl, 0CT4000Q2, 



skippcd; 

QCT100004, QCT6. 



01000080 
01000090 

01000100 



52 



56 
56 



OCT100010* 0CT4OO012' 0CTl000l5# 



cvn+io; pnomooj 



0CT20* 
VERIFY 



0CT100Q23* 0CT400026; 



END ; 
PROCEDURE PlOi; COMMENT 
B EG I N 



OlOOOHO 
01000120 
01 00 0130 



TRANSFER WORDS 5. 12, 6, 3 H N B ; 



01000140 
01010000 
Q lO l OQlO 



• • 



h- 



2 

3 . 
4 

5 

I 7 
« 
9 
10 
11 
12 
13 
14 
IS 
16 
17 

ie 

19 
20 
21 



22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 ~ 



39 
40 
41 
42 
43 



46 
46 
47 
48 
49 
50 
51 



52 

53 
54 
55 



REAL ARRAY SCRCE* DES TNT* DEST I NTN tl 5 64 ] ; 
STREAM PROCEDURE MVEWO ( FROM* TO** NUMBER ) 'VALUE NUMBER/ 
-B.Eiu.N- . ; 



si «• from; si «■ si 
di ♦ tow; di «■ di 

PS #■ NUMRER WnS i 



+2; 

+4; 

COMMFNT PLFASF AOJllST P QTMTFHS Tfl 



0101002C 
01010030 
.Q-tajLOOAO. 



end; 

.I NT EG ER 



SIAHT Uf i\£XT WORD; 



i* n; 



FOR I 
BEGIN 



*■ 1 STEP 1 UNTIL G'i DO 

soRcenui t 



01010050 
01010060 

_lILLQQZQ 
01010080 
01010090 

___1.Q4.0J_. 



DESTNTCl]«-633 

eno; 

.M£WHU50R££Ill*n FSTNTC 13*63); c UMMfNT H lQcK lRjJj_£JLbi i 
OESTINTN C23*7; 

MVEWo(OESTlNTNCl]#[)ESTlNTNC2]#lO); COMMENT CHAIN ; 
TEMPf - ■ » nFSTNTf __1J __„_ 



OlOlOHO 

01010120 

_UflJ_Ufl- 



TEMPC23 «• DESTINTNC123; 
FILL ANS[*] WITH OCTlOO* 0CT7; 
____ 2; PNQ »_iqi; Y£iUJF_X 



01010140 
01010150 

Ql Q lQ-UQ. 

01010170 

oioioteo 

.01010190. 



end; 
procedure pl02; comment 5.12.6.4 transfer characters h 

__BE_L_ . , 



01010200 
01010210 
.01 010220- 



N B 



VALUE 
.B££1N- 



STPEAM PROCEDURE HRMTC SRC. *OEST* S,D*C ) ; 

s* d* c; 



01010230 

0-1020000 

-01020010 



SI 

DI 
_SL 



src; si 
dest;di 

C CHR 



SI 
DI 



+ Si 

+o; 



end; 

INTEGER I*NN»DDCC*VAR*VAR2; 
.MB_.__AR2_____ 



01020020 
01020030 

.JH.0Ji_.QJL0.. 
01020050 
01020060 

_JJ__Q__L 



FOR I «• 3 STEP 1 UNTIL 6 00 
PRMT(VAR»VAR2* 7*1* 1)'#"TEMPC13«-VAR21 
PRMT( VAR2* VAR* 3* 6, 2)i fEMP.2]«-uA RJ_ 



01020080 
01020090 
010201 00 



FILL ANS[*] 

CVN «- 2*PN0 



WITH OcTOlOlOlOlOl* OcTOlOl* 
♦•102; VERIFr 



01020110 

01020120 

J2_.0__.ilIL 



_____ 



PROCEDURE P103; COMMENT STREAM PRQCEDoRE INPUT 

BEGIN 
.__ . . ARRA Y SRCE_L_1__L- 0ESTN.lt8Jj 



CONVERT, KM. DEC 3.; 



01020140 

01020150 

jQli_Q___ 



INTEGER C; 

STREAM PROCEDURE 
VALUE X*Y*Z*Q; 



01030000 
01030010 
01030020 



INP (A'B* X, Y* Z* Q.j 



BEGIN 
SI «■ A ; 

OS > 



01030030 
01030040 
01030050 



di * 8 ; 
1 Oct ; si 



DS «■ 8 oct; 
ds«-y oct; si*si+6; ds«-x oct;si«-s j+x; 
os » z oct; 



» si +6; os * 4 oct; si » $i +5; 



01030060 
01030070 
01030060 



si«-si+y; 



endj 



os> oct; os * q oct; 



01030090 
01030100 
01030110 



FILL SRCEC*] WITH QCT3i0000U000000Q0_, OCTQ2O3O4OOOGOO0OOO* 

OCT010203U405060750* OCT 1 lOOOOOoOOOOOOO 1* 
OCT 02 03 4 40000000000* OCT 01 02030405060710* 
OCTIOIOIOIOIOIO.CIOJ 



INPCSRCECOJ* OESTNCU* * > %» «* o); 

FOB oi STEP 1 UNTIL B 00 TEMP CC.*DESTN UJ ; 

FILL ANSC»3 WITH OCT2000Q0000000001 1 * 0CT2322* 



01030120 
01030130 
01030140 
01030150 

01030160 
0103017 



01030180 
01030190 
01030200 



ii 

3 
4 
I 

6 
7 

si 

9 
10 

11 4 

12 
13 
14 < 

15 
16 

17 i 

18 
19 
20 \ 

21 

22 

23 | 

24 

25 

26 % 

27 

28 

29 I 

30 

31 

32 i 

33 

34 

35 % 

36 

37 

38 f 

39 

40 

41 4 

42 

43 

44 1 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57, 



_ 



• • 



GCT2000000057060S16* OCT 1 1# UCT2000000000002322' 
GCT57060516* OCTiO, CCTOi 



C.VN.*ai 

PNQ* 103; 

VERIFY 



-£JMDJ 



'WOCEDURE P104J COMMENT STREAM PKUcEDURE OUTPUT CONVERT* KM. DEC 3* 

BEGIN 

ARRAY SRCE[(i:BJ, PESTMWSj; _Q 



INTEGER C* F 

STREAM PROCE 
iLA 



> gh; 

dure oupca* b* x, y> i* q> stv); 

1 1 if y» y< ?> a j 



BEGIN 






cal pqr; 
* a j di»b; 



tallY^-q; 



ds* 2 dec; oi*di ♦ 

OS* 8 DEC ; 

ds»y nrc; nl*Di+x; 



5; DS*4 dec; di* di+5; 
nr*nl+Y; n **x nFri nn-m+x* 



Dl 
US 



♦di+y; 
*z dec; 

» ofc; 



jl§_*ljb. ufc; ni»OT».a* Da*_a_nFcf 



if toggle then tally*5; pqr*tallyi 
si*loc por; dustv; ds*i wos; 



.e nd ; 



COM 



MfNT 



OS* dec wile 

***** N T EFFC 
_£JLkL_SR££_x* 



CONVERT 1 OCTAL WORD TO 1 DEC CHR. 
CT THE SOURCL UK DC ST 1 (vAjI Ci^ STRING 
J WITH OcT200000000 0000ilj CT2000 



DS*0 DEC WILL 

NOR CONVERT > 

0000000 0343ti * 



0CT56740516, 
F * Hi 



OCT2000000056740516, 0CT11* QCT3434, 
0CT7* 0CT2450^ 00177777777 77777777) 



0UPCSRCE[03> 
FOR C*l STEP 
IF GH=0 THEN 



FILL ANS [*] 



DESTN[13j« F» I' 8* 0* GH)i 

I UNTIL 8 00 1EMPCC3* DESTNCC]J 

TEMPts;3*5 ELSE TEMP[93*u; 



WITH OCT0051000000000001* 0CT10024 
OCT0102030004070150* QCTUOOOOG 
QCT020000000Q000001*- 0CTO2O30O0 



00000000000* 

000000110* 

407011007* 



QCTO* UCT03U2000000000000* OCTb; 



CVN 
PNO 



9/ 

104; 



VERIFY 

end; 

'rocedure pi05' comment stream phucedure transfer ano add statement 



BEGIN 



ARRAY 



5.12.6.7 D 
SRCE C1»133 



EC 4. 1962 KM. ; 
*DESTN [11133; 



INTEGER C* OR* QRS; 
STREAM PROCEDURE TRADD 

jtAkilE x* y* z; 



CA*8'X#Y»Z*0#R); 



BEGIN 

LOCAL GO* RR; 

SI*Q* Dl»LQC 






uq; us*i wps; si*r; oi*lqc rr; ds*i wds;o 



si* a; di*b; 
ds * 2 ado; 
qs*x add; si 



TALLY*0; 

si*- si+5; 01*01+5; skip 

*8I+2J DI»DI*2; DS»3 ADD 



4 sb; SKIP 4 

;s i* a ; di»b; 




db;o 
0_ 



SI*SI+16; Dl 
DS* Y AOO; D 
SI * A? ni*B 



*0I+16; 

s* z add; 
; si*si+4o; 



ui*oi+4o; 



ds*2 sub; Si*SI+5 

os*x sub; si 

nj*n i +^6 i si 



; di*ui+rr; skip 4 sb; sk 
*si+g; Di+oi+2; os*3 sub; 
*si+56; , 



IP 4 ob; 
si+a; di*b; 



03021C 
U30220 

030240 

030250 

030260- 

040000 

040010 

.0 4 0020 



040030 
040040 

40 05.0.. 



040060 
040070 
MflfiflD 
040090 

040100 
OAQILO. 



040120 
040130 
0JLQ_L4D_ 



040150 
040160 
040^ 70 



040180 
040190 
040200 



040210 
040220 
040230 



040240 
040250 



040270 
040280 
040.290 
040300 
040310 
040320 



040330 
040340 
050000 



050010 
050020 
050JL3JL 



050040 
050050 
0JJQ06Q 



050070 
050080 
050090 



050100 
050U0 

050120 



050130 
050140 

050150 



050160 
050170 
05 1,80 



• • 



10 

11 

12 
13 
14 
15 
16 
17 
18 



19 
20 
21 



22 
23 
24 



25 

26 

27 

28 

29 

30 

31 " 

32 

33 

34 

35 

36 



37 
38 



40 
41 
42 



45 
46 
47 
48 



054- 1 ADD; IF TOGGLE ThEf* Q + 1ALLW 

oi* di+5, si«-si + s; os«-5 add; 

IF TOGGLE THfr.N RHtTALLYi 



01*01+5; Sl<-SI + 5> : 05* ADD* OS+&UB; 

di*r; si*lqc rr; ds*i wds; 



-ENOI 



FILL SRCEL*] 



FILL DESTNE*] 



1*5; QR 
!ADD(SRCE 



OR 
TR 
FO 
IF 

i£ 

FILL AN5[M WITH 



)R C*l ST 
QR»0 TH 
QRS=0 T 



OCT 27 27 27 45 1044 2 345* OCT jO 3 12 34527 3 127 3 1* 

UCT 2 74 100 00 00000000* OCT 02070000000000 77* 

OCT1107471U10 30 40 4* OcTSlOOOOOOOOOOllll * 

OCTllllllOQOOOOOOOO* QCTOOOOOOOOOOOOOOOO; 

s* 5; 

CU* DESTNCU* 3* 12* 6* QR, tiRS); 



fcP 1 UNTIL 1 
EN TEMPtll]* 
HEN TEMPC123 



DO TeMPCCJ*. DESTNCC3/ 

1 EL^E TEMPtm«-5* 



QCT1UQQQ0OOO000O77* 
0CTO1030605O200010O* 
OCT0741000000000000* 



0CT06Q544H11Q5C71G* 

ocTiiuiooooooooooo* 

__0CT5* Q CT ^; 



CCT1111* 
OCT 24 2000000000000* 



CV 
PN 



N«- 12* 

* 105; 

R1Z1 



PR 



end; 

OCEDURE 



Pl06' COMMENT STREAM DESTINATION STATEMENT TRANSFER 
CHARACTER PORTIONS E« 5 DEC 62; 



BEGIN 



AL 
_AL 



PHA 
PHA 



ARRAY 

x»y; 



A* B* C* DC H63i 



INTEGER I* J; 
STREAM PR0CEDUKE 

BEGIN 



STPR0CCFi*F2*F3*F4,F5*F6); 



LABEL L1*L2*L3*L<»#L5; 
LOCAL CI* C2*C3*C4j - 

si»fi; 



DUF2; 

ds «- 1 

PS + 3 



20Hi 

zon ; 



ds «• 
OS '■* 
DS » 



e zon; 
4 zon; 
32 zon; 



050190 
050200 
040.5.0.2.10 
050220 
050230 
-Q5i)-2J5UX 



WITH OCT0411000000000077, LC T2706450000672747 , 01050250 
DCT2345103123450704* QC T 4J27274700000000* O1OSO26Q 

QCTOOOOOOOOOOOOOOOO* OCT 40 7 00 000000007 7, 105037 

0CT0607Q7HU020344* OCT 1 UOOOQOOOOO 1 1 1 1* ~0iQ5O280~ 
OCTllllllOOOOOOOOOO* 0C72222222222222222; 01050290 
WITH OCT0411000000Q0007 7* OCT2706650000274 327* - 0l0 50300 



LO5O310 
.050320 
[0 50330 
,050340 
,050350 
050360 



L050370 
[050380 
[05039 



QCT44Q* 01050400 

0CT0407014207H0711* 0i0504l0 
OCT024000000Q000077* 01050 420 



;05043Q 
t050<*40 
LttaflASfl- 



1050460 
[050470 
,050480- 



L050490 
[060000 
,060010 



.060020 
[060030 
l Q60 040 



.060050 
L060060 

lOJlQOIJL 
.060080 

,060090 
,06010 



[060110 
L060120 



1060140 
1060150 
L060160 



SI4-F3; 
DI*F4; 



ps» 1 num ; 



[060170 
L060180 
[0 60190 



49 

so 



51 
52 
53 
M 



55 
56 



os* 1 num; 



IF TOGGLE THEN GO TO Uj 

_L2J os » 3 num; 



,060200 
,060210 
.060220 



OS «• 8 num; 
os * 4 num; 

IF TOGGLE THEN GO TO L3; 



,060230 
,060240 
,06025 



GO TO L4 ; . 

L3t DS ♦ 32 NUM; 

GO TQ L 5 J 



0: 
0; 



060260 
060270 
60 280 



LI s CI «• di; 

01 *• f5l 01 <- Dl + 3; 
PS «• 5 LIT "MINUS"; 



L4» c?» m; 



DI 
GO 



♦ cu 

TO L2) 



UI*F6; 01* 
DS <- 4 LIT 
P I ♦ £2 J 



01+4; 

"PLUS"* 



GC TO 
L5* 



L3; 



end; 



FILL Bt*3 WITH OcTQ 1020304050607 jO, 

QCT02030«050607lO, 
QCT020304050607lO, 



0cT0iOi0 30aO5O6.O7iO# 
QCT010203040506071G, 
0CT0l0?0304>O5O6Q7iOi 



FILL DC*] WITH 



0CT7777777777777777* 
0CT7777777777777777* 
0CT7777777777777777, 



STPR0C(A(13» BLU* CC1]> Dill* 
FOR I «■ 1 STEP 1 UNTIL 6 OU 
BfLGJJJ , 



Y)j 



0C17777777777777777# 
QC17777777777777777* 
0CT7777777777777777; 



end; 



TEMPtll ♦ 
TEMPCI+6] 



bch; 

♦ DC 13 J 



TEMP[133 ♦ x; 
TEMPCH3 ♦ Y; 

-FIL L AN3[* ] W IT H 



0CT?1?22 324?5?6?7 3Q, OCT > 1 ???3?q?5?6?7 30, 



OCT 2042434445464750* OCT 2 142434445464750, 
OCT20626364I6566677 0, CC T 21 626 3646566677 0* 
Or.TO 1020304050607 10* QCTO 1020 304050607 ^n* 



CVN «■ 14; 
PNO * 106; 
VE R IF Y 



01060290 
01060300 
Q1 O60 31Q 



01060320 
01060330 
Q1 06 Q34Q- 



01060350 
01060360 
01060 370 



01060380 
01060390 
Q1O60400 



FILL AC*3 WITH 0CT2122232425262730* 0CT2 122232425262730, 01060410 

0cT21424344454647b0# 0CT2 142434445464750* O1O6O42O 
QCT216263646566677Q* QC T2 162636465666770; 01060430 



O1O6O44O 
01060450 
0l060ztftn 



FILL CC*3 WITH QCT4142434445464750, pcT 6 \6 26 364656667/0 , O1O6O47O 

0Ct2i22232*»25262730# LiCT 2 1222324252^2/ 30* O1O6O48Q 
0CT4142434445464750* CCT6 1 626 36465666770 ; 0l060fl90 



O1O6O5OO 
01060510 
01060520 



01060530 
0lOb054O 
■ Q106Q550- 



01060560 
01060570 
Q1 06Q 58Q 



01060590 
0106060C 
JUJBMA11L 
01060620 
01060630 
Ql0 606a0 



OCT010203C405060710* CCTO 1020 304050607 10 * 0i060650 
0CT0i0203O4O50607i0, (JCTO j020 30*4050607 10* O1O6O66O 
0CT443145C462, 0CT47436462; . Ol060670 



end; 
procedure 



01060680 
01060690 
01060700, 



8EGIN 



P107* COMMLNT STREAM 
CHARACTEHS 



OEaTlNATlONAL STATEMENT LITERAL 

M 5 DEL 62; 



01060710 
OiO/'OOOO 
Q107QQ1Q 



ALPHA ARRAY ACH63* BC1»3J# 
INTEfiER T*JI ^_^ 



STREAM PROCEDURE 
BEGIN 

di*fi; 



STPR1C F1»F2); 



01070020 
01070030 
01070040 



OS* 1 LIT "A"; 

OS*- 3 LIT "BCD*; 

OS » 8 LIT "EFGH1/+- 



01070050 
01070060 
01O7007Q 



os*- 4 lit m keh m ; 

DS* a lit "av; 
ns» 16 ltt "r"; 



01070080 
01O7O090 
Q 1 Q701Q 



0'S*i-.UlT "ASTU M # 
OS ♦ 7 LIT M JKLMN0PQ"; 

0I +F2 I 



O1O7OU0 
01070120 
01 070 130 



01O7O140 
01070150 
01,070160 



56' 
57 



• • 



0S*16 LIT "Af ASAULNA»CALIL. M ; 
QS + 8 LIT "aUSA'S 

L end; 


• - 

01070170 
01070180 
\ 7 1 9 Q J 


' STPR1C AC1 J#BC13 3i 

' FOR I * 1 STEP 1 UNTIL 6 DO TEMPC1J * A CIi; 

FOR J * 1 STEP 1 UNTIL 3 DO TEMPCJ+6] * BCJJJ 


01070200 ? 
01070210 2 
01070220 3 


4 FILL ANS[*) wlTH QCT2122232*»25262730* 0CT3 16 lb j75422b3042* 

5 OCT2170217021702170» OCT 2222222222222222* 

6 0CT2222222222222222* OUT 210 14243444546/47* 


01070230 

01070240 5 

01070250 6 


0CT2147216221242545* OCT 21722321433 14332* 
a 0CT2l64622l2l64622t; 
9 CVN 4. q; 


01070260 > 
01070270 8 
0107QJ>«0 9 


,0 pno «■ 107; 

VERIFY 

12 end; 


01070290 10 
010/0300 " 
01070310 12 


' 3 PROCEDURE P108; COMMENT LITERAL 01 TS EK G DEC 62; 

14 BEGIN 

16 ALPHA ARRAY A* B LlUIJ 


01080000 is 
01080010 14 
0^0800?0 is 


16 INTEGER I; 

17 STREAM PROCEDURE STPP2( F 1* f 2 ) ; 

BFGIN 


01080030 16 
01060040 " 
010800SQ '6 


19 DI *■ fi; 

20 OS * 24 set; 

21 QS * ^e sft; 


01080060 ,9 
01080070 20 
0l°80080 21 


u ds«-6o set; ds* 60 set; 

23 DI «- F2; 

24 ns *■ i rfsfts 


01060090 22 

oioaoioo 23 

OlOftOllO i 24 


26 os ♦■ 48 «eset; 

26 DS*60 RESET; DS«-36 RESeT; 

27 ps * a 7 BP-SFT-* 


01080120 25 
01080130 26 
01060140 27 


28 si«-fi; di«-fi; 4cif sc*" ,M » then ds*i heSeT; ol*Di+7; 

29 si*si + 8>; 
" - end; 


{060 150 28 
01060160 29 
o 1 a 1 7 o 30 


31 FILL ANS[*3 wITh OCTO* OCTO* OCTO* OCTO* 

32 FILL BC*J WITH 0cT7777777777777777* OCT 7777777777777777* 

33 _____ □f.T/777777777777777, OC T 7777777777777777; 


01080180 3 ' 
01080190 32 

ojoeopoo 33 


34 STPP2CA*B); 

36 FOR I «■ 1 STEP 1 UNTIL 4 uO 

36 BEGIN 


01080210 34 
01080220 36 

oioao?3o 36 


37 TEMPtll* Am* 

38 TEMPCI+4] «• BCIi; 

39 FND» 


01080240 37 
01080250 38 

oioao?6Q 39 


40 FILL ANSC*3 WITH OCT 377777 77777777 77* CCT 3777 777777777777' 

41 UCT3777777^77777777* CCT 177777777 (777777 » 

42 OCTO* DC TO* OCTO* OCTO' 


1080270 40 

01080280 41 

01080290 42 


43 cvn * s; 

44 PNO * toe; 

46 VERIFY 


01080300 43 

01080310 

01080320 45 


46 end; 

47 proceoure pl09' comment b,12.7 stheam go to statement h n b ; 

BEGIN 


01080330 46 
01090000 47' 
01090010 48 


49 STREAM PROCEDURE GOTO CSRC*DST* SRS'OSN); 

50 BEGIN 

LABEL H; 


01090020 49 

01090030 

01090040 51 


52 si «■ src ; 

53 di «• ust; 

54 DS «• 1 nds; 


01090050 52 
01090060 53* 
01090070 54 


55 GO TO h ; 

56 si * srs; 
If oi ♦ dsn; 


01090060 55 
01090090 56 1 
01090100 53 



# • 



I 



2 
3 
4 
5 
6 
I 
8 
9 
10 
11 
12 
13 
14 
lb 

K 

117 

IB 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 ~ 

38 

39 

40 

41 

42 

43 ~ 



OS «• 1 

h»end; 

TEMP[13«-63. 



hDS; 



TEMPC23* 63; 
TEMPC33* 17; 
TEMPC43* 1?; 



.0*0110 
.0*0120 

,0*0130 



o; 
0: 



090140 
090150 

090160 



GOTO<TEMPU3*TEMPL3J#TEMP[i2 J,TEMP[« J); 

FILL ANSC*] WITH OCT77* OCT ."7* OCT/7* lCJi\i 

CVN »j; PN Q«-l Q9 / V b. HI F Y 



,090170 
.090180 
,0*0190 



end; 

PROCEDURE PllO; COMMENT 5,12.8 SKIP BIT h N B* 
BJEiLIN 



,090200 

100000 

-10Q010. 



STREAM PROCEDURE 3K8ITS ( SHO DST* S* D*N ) / 
VALUE S* D* N; 
..fl£j&lN 



Q: 

0; 

-0-; 



si «• src; di* dst; 
skip s sb; skip d db; 

J3S-._Al._N CHR 



1Q0020 
100030 
XO-00-40. 








end; 

fill tempo] with qct103q5u7; 

5KRITS (TEMPT Hf UMESZXt-MliJjuLLU- 



100050 

100060 

-10007-0- 



FILL ANS[*3 WITH 0cTl030507* 0CT03OO; 

cvn *2; pno 4-no; verify 



100080 
100090 
100100. 



XJSL0J- 



PROCEDURE Plli; COMMENT b.12,9 STKEAM TALLY H N d; 
BEGIN 

-WT-E-GtR— U- 



0: 
0: 



lOOUO 
100120 
100130 



INTEGER STREAM PROCEDURE SWUAR T CN > > VALUE Hi 

BEGIN 
TALt, Y»0 _ 



110000 
U0010 
1 1 Q0 2C 



ncnctally«-tally + 1)*); 
squart «• tally 



110030 
110040 
110050 



e nd ; 



FOR I «■ 1 STEP 1 UNTIL 10 00 

TEMP[I3 * SOUART(I); COMMENT 1*2 ; 

FILL ANSC*3 WITH 0GT1* 0CT4* QCT11, 0CT2Q* 0CT31, UCT44, 








110060 
110070 
110080 









110090 
110100 

nono 



0CT61» QCTU, nCT2l» 0CT44; 

c v n *- 1 o ; pno<-iii; verif r 



end; 



PROCEDURE P112; COMMENT STREAM NEST STATEMENT EK 11 DEC 62* 

BEGIN 
INTEGER A*B*E*F*G*J*k; ___^_____^^_^______ 



110120 
110130 
U0140 



120000 

120010 
120020 



ARRAY CC0H9]»0[0:i93* H[0;83* 110:83* 

STREAM PROCEDURE STPRN (Fl* F2# F3, F4» F5, F6* F7* Fa* F9* F 10 ) ; 
BEGIN 








120030 
120040 
120050 



45 
46 
»7 
48 
49 
50 
51 
52 
53 
54 
55 
56 
67 



LABEL L1*L2*L3*L5*L6*L7; 

LOCAL V1*V2*V3,V4; 

TALLY «. o; 



120060 
120070 
12008 



8(SI*L0C Fi; 01 - LOG F2; 

vi *• si; V2*di> oi«-V2; s i «-v i; 

TALLY » TALLY +1); 





o: 
0: 



oi ♦ rn 

F2 * tally; 

SI <• LOC F2; 



120090 
12010C 
120110 



os «■ i wds; 

TALLY* l; 

vutally; 








120120 
120130 
180140 



SI ♦ F3; 
QI ■♦ F4 ; 
8 (0l»DI +VU Sl »SI + V i ) ; 








120150 
120160 
1 20170 



120180 
120190 
1 2, 20 



# 



n 

2 
3 

4 
5 
6 
7 
8 
9 



12 

13 

14 

IS 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 ~ 

32 

33 



34 

35 

36 

37 " 

38 

39 

40 

41 



42 
43 



45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



(0S*i WDS; D5«-d CHrt; QS<-8 OCT; 05*8 
GO TO Li; OS*- 1 WDS; Li: DS «-8 ADD; 

-OS + a zqnj os* a numij 



oec; 

OS *8 



SUB, 



GO TO l2; 
TALLY «• TALLY + U 
-L2J 3 (OS *? LIT 



GC TO L3; JUMP OUT, 
OS * 3 ulT H E.K")J 

TAI LY » o; 



T"; cis » 6 sft{ o s a 6 r eset; 



L3s skip 6 ob; skip 6 sb; 



DI * F5J 

2 (TALLY ♦ TALLY+U2 (TALLY * TALLY+i; 2 (TALLY «• 

. TALLY + 1J JUMP QUTllJbHP OUT? TALlY «■ T Al LY + 1 ^ t T Al L Y ft 



♦• TALLY +1) 

F5 «- tally; 

SI <■ 1QC F5,f 



OS ♦ ■ l WOS; 

TALLY ♦ Oi 01 ♦ F6; 

» (TALI Y » TALLl±JJ_ 



SI «- LOC F6/ 

OS «■ l wos; 

TALLY <• o; , D L 



?(TAI LY «■ TAl I Y+l U F <S «, TAI t Yi; 



X7 



3c3(tally «■ tally+1); tally * tally+1); 
f? * tally; 

S it L O C F7 f 



DS 

DI 

JLL 



l wos; 
F9 ; 

XJl_i 



e (if sc » "a" Then jump out; os-* i wdS); 

4 (IF l SC s DC THEN BEGIN IF 1 SC * OC THEN 
OS » ? CHR FNQJt 



2( SKIP 1 SB; SKIP 1 db; 

if sb then 2 (4cds 

DI «• DT-2; SI «■ 51-2; 



* 1 chr); ); j; 



a (IF SC * ALPHA THEN 

DS * 4 CHR END) ; 
TALLY + O; 



BEGIN IF TOGGLE THEN 



3 (IF 8 3C 

JUMP OUT 2 

TALLY » 



L6J DI * FlO; 

F1C * TALLY) 
SI » LOC fio; 



* dc then 8 (if 

TO L5' 

TALLY-H WTALLY ■ 



SC = ALPHA THEN 
L.J-ALLY *JOi 



OS * l WOS; GO TQ L7i 
L5j OS ♦ 5 LIT "0"; OS * 3 
GC TO L6 ; L7» 



LIT "bWD"j 



end; 

fill cc*3 with 0ct212223* 0ctl23«670* oct 36543210 12345670. 

0CT207, QCT33, QCTOlO lOlO 10 10 10 10 1 , QCT020202Q202020202, 



OCT204060606C404020#OCTOi02030405060700* 0CT313233* 

OCT 1020304055627377* QcT604> QCT22# OCTO 1020304050607 10» 

OCTlllllllllllHUlJ 0CT006020* 0CT01020304* OCTO, QCTO* OCTO* 



FILL 01*1 WITH OcT2223>OCTO*OCTO»ocTO*OCTO#OCTlOl01010lOlOi010#0 
OCT04 04 04 04 040«04 0«*OCT0101010101010101 *QCT0»0CT10# 

OcTO>OCTO^OcTO»OCTllUUlimiUll'OCTOlOlOl010lOlOlOi* Q 



0CTO#0CT0#0CT0#0CTO,0CTO; 
FILL H C*1 WITH 0CT2421222J24212223>0CT2122777723247777# 
0CT25267777 232477 77, QCT30 112 13 1506044 23, 



FILL 



OCT376655443322HOO,QCT2lOt020322040506>OCTO# 

0CT202 121 2 12 1000000, OCT 2100000000000000; 

I [»3 WITH QCTO*QCT212200002324000Q»QCT2526000023240000» 



20210 
20220 



20240 
20250 
2H26.0. 



20270 
20280 

2H2£0- 



20300 
20310 
20320- 



20330 
20340 
2Q35Q. 



20360 
20370 
20380 



20390 
20400 
SLSA1SL 



20420 

20430 
20440 



20450 

20460 

ZQAZ-O- 

20480 

20490 

20500- 



20510 
20520 

2Q53Q. 



20540 
20550 
iO_5M_ 



20570 
20580 
2.05.9JL. 



20600 
20610 

20620 



20630 
20640 
20650 



20660 
20670 
20680 



20690 
20700 
20710 



20720 
20730 
20740 



20750 
20760 
20770 



20780 
20790 
20800 



T< 



h 



a 
Q 






1 
I 2 

3 

4 
: 6 

6 

I 

8 

9 

10 

11 

12 

13 

14 

16 

p«- 

117 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 ~ 

32 

33 

34 

35 

36 

37 "" 

38 

39 

40 



45 
46 
47 
48 



49 
50 



si 

52 
53 
54 



55 
56 



OC T370CCOO0OO00O0O0* OCT 3700000000000000* 0C TO* QCTO* 
0CT20 2 12 121210 00000 ,0CT2 100000000 000000 ; 
-3TPRN LA*B*C*Q*F *F*fi*H* I *w) ; 



TEMPrn * b; 

FOR K * STEP 1 UIJTIL 19 
TEMPrgg] » Ft 



00 TEMPCK + 23*- DtKll 



TEMPC23] ♦■ F; 
TEMPC2«] «- G; 
FOR K «• STpP 



1 UNTIL fl DU TFMPfK + 2 5 ] » U K],? 



TEMP[343 *• j; 

FILL ANS [*3 WITH ecUQ*QC 1 2223*QCT 12345670* 

OfiT365«32l0l234567Q,OCT33«OCTyO7.nCTMl inin in""' n 



□ CT0202020202020202* CT2 1* 16 16 16 14 14 12 1* 

QCT0102C 30405060700, QCT3 13233, OCT 1020 30405562? 377, 

PC T iOO,QCTiiO,OCTO 102030405060 '707» OCT 10 10 10 10 10 10 1050, 

OCT00602COCTO 1020 304, OCT 2525770000254225, 

OCT2|2577000025422S>OeT2525770000254225#QCTiO>OCTii, 
O CT 14* 0CT242 122232421 2223* OcT?1 ?27777?3247777* 



OCT 25 26777 7 2 3247777, OCT 37 H2 13 15060 4423* OCT 37005544 3322 HOC* 
OCT 2 10 1020 322040b06,Ocro*CCT 202 12 12 121000000* 

QCT6266?4*ncTlU q. 



CVN ♦ 34) 
PNO * 112* 



end; 
proceoure Pi 13* 

ELEJUN 



C0MM£NT JUMPBUT aTATEM^KT £* lO DfcC 62* 



INTEGER A*B*C*0,E; 

STREAM PROCEDURE STPRJ CF 1*F2* F3* Fa* F5 U 
B EG I N : 



LABEL I_1,12*L3, 
01 * Fl* 
TALLY «■ o; 



4 ( TALLY «• 

Fl «• tally; 
SI » LOC fi; 



TALLY +i; JUMP OUT) ; 



DS «• i wds; 
TALLY ♦■ o; 
DI «• F2; 



4(8(TALLY «- TALLY + i; JUMP OUT); TALLY*TALLY + i; 
GO TO Li; TALLY ♦ TALLY+i; Ll» JUMP OUT) ; 
TALLY » TALLY+i; Q_ 



F2 

SI 

.as. 



TALLY; 
LOC F2; 
1 W QSj 



01 * F3J 

TALLY * 0; 

fl(a(TALLY»TALLY»i; JQMP QUT); 8( TALL Y»TALLY»ll 



JUMP OUT); JUMP OUT TQ L2; 

TALLY «• TALLY + i; 

L2; F3 » TALLY* 



tall y *tally+i; jump out); 



SI 
OS 

JLL 



LOC F3i 
l wqs; 
1A1 



TALLY * 0; 
3CG0 TO L3; 3(TALLY«-TALLY + U; 
TALI Y»TALl,Y-n; 



L3» jump out; tally«-tally+i); 



SI*LOC F4J 



F4 * tally; 
OS » 1 wns; 



120810 
120820 
12Q&3SL 



120840 
120850 
120860 



120870 
120880 

120890 



120900 
120910 

i20o? n 



120930 
120940 
120950. 



120960 
120970 
12 096 0_. 



120990 
121000 

121020 
121030 
1.21 04 , 



121050 

130Q00 
13-00X0. 



130020 
130030 
130040 



130050 
130060 
IJOO ZSL 



130080 
130090 
130100 



UOllO 
130120 
130130 



130140 
130150 
1 3Q 16Q 



130170 
130180 
1 30 190 



130200 
130210 
130220 



130230 
130240 
130250 



130260 
130270 
1M2£0_ 



130290 
130300 
1 3 31 



130320 
130330 
130340 



T* 



>r 



10 

11 

12 
13 
14 
15 
16 
17 
IS 
19 



20 
21 



22 
23 
24 
25 
26 
27 



28 
29 
30 
31 
32 
33 



34 
35 
36 

37 " 

38 

39 



40 
41 



42 
43 
44 
45 
46 
47 
48 
49 
50 



51 
52 
S3 
94 



55 

56 



DI * F5> 
TALLY «- o; 

2 CT A U L Y-TA L IY+ 1 / 



TALLY+U JUMP OUT)J TALLY*T ALLY+1 ; 

TALLY <• TALLY + 1) i 
F5 «■ tally; 



J(TftlrLY*TALLY*i ; 4 (T Al.LJL-t. 



jump out); jump out; 



si 

DS 



01130350 
01130360 

01130380 
01130390 
Oll30a00 



end; 



LOC F5i 

1 wds; 



STPRJ CA,B»C»D#E); 
TEMPtl] * a; 
TEMP T21 *■ B ; 



01130410 
01130420 
0U3Q43Q 



TEMP[3] 
TEMP[4] 

...KMPL5-1. 



c; 

q; 

JEJL 



01130440 

01130450 

JLU10iL6_Q.. 



FILL ANSc*3 WITH OCU* 0CT3* 0CT2, OCTl* 0CT4; 

CVN «■ 5; 

PNO «• 113; 



01130470 

01130480 

JUUflASLfi-. 



end; 



VERIFY 



PR OCEDURE PUS; COMMENT 5.12.12 CflMpOLNp STREAM STATEMENT 8/5/63 LG; 



BEGIN 



0U30500 

0U30510 

01130S.P0 

01130530 

0U30540 
01150000 



INTEGER ARRAY STRM [0«203; 
INTEGER I>A>RjC>0; 



0U50O10 
01150020 
Q U 5 00.3J2- 



STREAM PROCEDURE CSS CDE^T ,SRCi * A,B#C »D ) ; 

VALUF AiB»C>n? 



BEGIN 



LOCAL Tl«#Tl5#Tl6#Ti7#TjJ 

LABEL L1*L2,L3»I 4, L5» L.6, L 7» L A, I R; 



SI «- srcE ; DI *■ DEST ; 

BEGIN COMMENT DUMMY STATEMENT QS + 1 KqS ENO;eNo; 

BFG IN EN D/ 

BEGIN 
BEGIN 

begin si ♦■ si+a; os *■ \ wds end 



END 
END; 



01150040 
01150050 
-04150060- 
OU5007Q 
0J150080 
011 50090 

0U5O100 
0U50H0 

■ QUSQiao.. 

01150130 
01150140 
0U50150 



BEGIN DS 
BEGIN DS 
JUL 



DS <• 1 wos; 



BEGIN 
BEGIN 



-L2L 



DS 

DS 
_DS_ 



♦ 1 WOS 

* 1 wos 

TO LW 



end; 
end; 



0U50160 
01150170 

.011501.8JL 



wds; 
wds; 
wds> 



li« us ♦- 1 wds; us ♦■ 1 wds 

GO TO L2; DS ♦ 1 WDS END; 



ENq; 



0U50190 
OU50200 
01150210 



BEGIN 



0U50220 
01150230 
01150240 



GO 
JlS_ 



to la; 

» 1 WDS 



LAI 



OS 

GO 
JLS. 



LB« 

e nd; 



OS 

GO 



«- 1 WDS 

to lb; 

» 1 W O S; 



QU50250 
Oil 50,260 
0U50270 



•• 1 wos; 

TO L3 ; 



01150280 
01150290 
QUSQ30Q 



OS * 1 WOS 



L4J BEGIN 



DS 
DS 

DS 



wos; 
wos; 
wos; 



os ♦ 1 wds; 

GO 1U L5i 



01150310 
0U&0320 
0U50330 



OS * 1 wos 
end; BEGIN os * 1 wds; 
L3i os ♦ i wos; 



01150340 
0U5O350 
01150360 



011*0370 
01150380 
OU50390 



# • 



2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 



JL*L 



END* 
__LUL 



GO TO L^; IS * 1 WPS 

* p i ; u i * pi + 8; _ 



150400 
15U420 



T15 

T16 

JA1_ 



di; 

oi; 
_P_ll 



01 

DI 



UI 
DI 



8) 

a; 



150430 
150440 
15 Q45 Q 



16 

! 17 

18 



19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

10 

31 

32 

33 

34 

36 

36 

37 " 

38 

39 

40 

41 

42 

43 

44 

46 

46 

47 

48 

49 ™ 

SO 

51 



161 



TALLY * A ; Tl * TAuLY; 
IF 8 SC= DC THEN 
B EGI N SI * LQC AJ 



si * lgc ti; di * loc a; 







_0_ 



150460 
150470 
15Q4RQ 



DI 

DS 



r 1 4 i 

1 HDS 



END 







-0- 



8EGIN 



SI 
DI 



ELi>E 
LOC Bi 

ti5 ; 



0' 

o: 



150490 

150500 

JL5Q510 



150520 
150530 
1505JLO. 



END 



DS «- 1 wos 
tog gle then 



150550 

150560 

.150570 



BEGIN 



SI 

DI 

_05_ 



loc c; 
H6 ; 

1 W P S A. 



150580 
150590 

JSOfiOO 



SI * LOC 
DI * LOC 
ftO Tn 16 



ki 

b; 



150610 

150620 

,150630- 



END 
BEGIN SI 



ELSE 
LfIC D 



o: 

0: 

■&1 



150640 
150650 
X5.0660 



DI 
DS 



ti/; 

i wps 



END 



0; 

0; 

-a; 



END STREAMPROCEDURL CSS ; 
COMMENT START OF EXECUTE UF PU5; 
AJt-l *t B * 1 5J C * 1 6; D <• 17; 



150670 
150680 
150690 



o: 
0: 



150700 
150710 
15 Q7 2Q.. 



FOR I * 
CSS (TEMP 

F OR T * 1 



STEP 1 UNTIL HO 
*STRM#A#B,C#D); 
STFP 1 UNTIL 19 



DO STRM CI3 ♦ I ; 
DU ANSCI 1 * STRMfl 3i 



0: 
0: 
SL 



150730 

150740 

i5.0_7_5_Q. 



CVN «• I7j 
PNO 4- 115; 
-VE RIFY ; 



150760' 
150770 
JL5Q7B0 



END P115 ; 
PROCEDURE Pll6i 
BEGIN 



COMMENT 5,12.13,4 SOURCE COMPARE WITH LITERAL; 



150790 
160000 
160Q 1Q 



STBEAM PR 

BEGI 
IQCA 



OCEDURE 
N 



CHECKSORCELIT(INARAY)* 



q; 



160020 
160030 
16 O Q40 



LABEL A» 



B* C# D# 

01* LOC 
OU UOC 



E> f* G> H# NED; 
PJ OS* 8 LIT "19 
o; OS* 7 LIT "0. 



A2* l«i 
o/» w ; DS*1 LIT www f 







_0_ 



160050 
160060 
160070 



DI* INA 
SI* LOC 
IF SC * 



ray; di*di+7; 
p; 

"1" THEN BEGIN QS*1 LIT "1"; 01*01+7; 









160080 
160090 
160100 



si*si*2 end; if toggle t 
at if sc > "♦" then begin os 
si*si+2 end; if toggle 



HEN GO TO A 
* 1 (-IT "2" 

THEN GO TO 



; GO TQ NEO; 01160110 

; oi*:oi*7; 011*0120 

BJ GQ TO NC P ; 0U601 30 



52 
53 

54 
55 
56 



b* if sc £ "*" then begin ds* 1 lit "3" 
si*si+i end; if toggle then go to 
c> if sc < » " then begtn ob* 1 lh "4" 



; 0I*DI+7; 01160140 

c; go to ned; 01160150 
; d i» pw; 01 160 160 



SI*SI+1 END; IF TOGGLE TH 

OJ IF SC* " " THEN BEGIN OS* 

SI*LOC Q; IF TOGGLE THEN 



EN GO TO O; 
1 LIT "5 W ; 
GO TO EJ 



GO TO NED; 01160170 

oi*oi*7;eno; oiuoieo 

GO TQ NEQJ 116 , 1 90 



h 






2 
3 
4 
5 
6 
7 

8 

I 

9 

10 
11 
12 
13 
14 
15 



16 
17 
IS 
IS 



20 
21 
22 
23 
24 
25 
26 
27 



o 
Q 



28 
29 

30 

31 



32 

33 



34 

35 

36 

37 ~ 

38 

39 



40 
41 
♦2 



43 
■ 44 
45 
46 
47 
48 
49 
50 
61 
52 



53 
34 



55 
56 
57 



EI 

-EX 

G» 



IF SC* 
SI*SI+l 
IF SC* 



"♦" then hegin ds* 1 lit "6"; di«-di+7; 
end; if toggle then go ^c f; go to neo; 

ThFN RKGTN Q S 4- ) | ff wjrwj p I *• R 1 + 7 J 



Hj 



susi+6 end; if toggle then go to g; go to neo; 
if sc « «♦"" then begin ds*i lit -7 m ;dudi + 7 end; 

IF TOGGLE THEW GO TO Hi GO TO NEn; 



IF SC = 



»i « »• 



rHEN 2(IF SC* """ THEN 2CIF SC>»'0" THEN 
JUMP OUT 2 TO NED); IF TOGGLE THEN 
JUMP OUT TO M£Pj DS»1 LIT "1"; 



01160200 
01160210 
01 160220 
01160230 
01160240 
-0JJ602S5.. 



NED* end; 

CHEC KSgRcELITfTFMPril); 



DI+OI+7); 



01160260 
01160270 
01160280 



FILL ANS[*] 

cvn*9; 

-PN0».1 16; 



WITH 1, 2, 3* 4, 5. 



7, i, i; 



VERIFY 

end; 

.PfiQ££ DURE P117J COMMENT STREAM SOuR CE AND DFSTlNATlOM COMPARE. 

5. 12. 13. i WUNL 24 196j; 
BEGIN 

JLABEI. PAR ; 



01160290 
01160300 

JU160_JJJQ. 
01160320 
01160330 

-04X6030 0- 



01160350 
01160360 
01170000 
01170010 
01170020 
XUJJLOLQ JO- 



INTEGER i; 01170040 

STREAM PROCEDURE SQRCEOEST INCQMPAR £ ( ARAY X m x , ARAYIN25* SIXTY4* 0U70050 

ARA YIM5, ARAVlNENm: OXXT-QQAQ 



VALUE 
BEGIN 



SIXTY4; 
L OCAL ii, Rj. 



LABEL A* B# C> 0* 
DI*ARAYlNl ; 



E# dad; 

DS*20 LIT "ABCD4444IJKLMN0PQRST M ; 
nS*2o ltt »*q/*-n T >^ «j_ 



DS4-20 
DS*20 

ns+ao 



LIT 

LIT 

XXL 



"1234567891 



01170070 
01170080 

-04X/-OO9-0 

01170100 
01170110 
OUZO 1 20- 



DS+20 LIT "********************«; 
DS*20 LIT "ABGDEFGHIJKLMNQPQRST"; 
-D- ULDC R;SI»LOC ARAYINENHJ DS*i np_SJ SI^ARAYlNt; 



01170130 

01170140 

-0X170150. 



DULOC.Q; DS*8 LIT "A6C04444"; Dl«-LUC Q/ 

IF 8 SC = DC THEN BEGIN DJ>R; b I *- S I - 8 ; DS*-8 CHR ; 

Sl»SI-8; R»Ul Ei\0; IF TUGGLE ThEN GO TO a; 



At 



go to bad; 
di«x0c q; ds*8 lit "aac04444"; dl*loc q; 

I F 4 SCXOC THEN BEGIN TALLY+OJ Q1»RJ PS»4 UCT; 

R«-DI END; IF 10GGLE THEN GO TO Qf GO TO BAD; 
DI+LUC Q; 0S«-8 LIT "*9/:-0.."> Ul*LGC di SI«-SI + 12J 
IF 4 SC > DC ThEN BEGIN iF 4 *C > UC THEN BEGIN 



01170160 

01170170 

-.flXXZO.JL.aO.. 

01170190 

0U 7.0200 
01170 210 



01170220 
01170230 
0U70240 



01170250 
01170260 
01170270 



CI 



DI*«; QS*8 CHR ; R* D I END EnO; IF TOGGLE 01170280 
THEN GO TO C; 60 TO BAD; 01170290 

SUSI+4; OI»LOC a; DS»8 LIT "ABCD5678"; UI+LOC Q; 01170300 



Ds 



IF 4 

bad; 

IF 4 



SC< DC THEN GQ TO Dl IF TOGGLE THEN GO TO 
SC S DC THEN BEGIN DI*R; DS»2 OCT; R*DI ENO; 



GO TO bad; 



IF TOGGLE THEN GO TO E; 
El DI*ARAYIN15; SI«-Sl + lO; 
Tf_SIXTY4 SC > OC THEN GO TO BAOJ 



0H70310 
01170320 
01170330 



go to bad; ui*r; os*8 
di«-loc a; ds*8 lit m q' 

IF SC * DC THEN GO TO 



chr ; r*di; 
'; oi«-loc a; 
bad; if toggle 



if toggle then 



01170340 
01170350 
01170360 



THEN GO TO BAD; 



di*r; 01*01+4; ds*4 chr ; r«-di; 
di«xoc a; 

IF SC ■ OC THEN BEGIN Ql»RJ DI»PI + U QS»3 CHR* 



01170370 
0H70380 
01170390 



0U70400" 

01170410 

01170420 



2 I 
3 
4 
5 I 



7 

8 
9 
10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

3B I 

39 

40 

4. I 

42 

43 

44 ' 

45 



• 
• 



46 

47 

48 

49 

50 ! 

51 

52 

53 I 

54 

55 



« 



56 ' 

4 



10 

11 

H 



J_AD.1_ 



IhUi IF T0(iGLt THtN GO TO BAD' 
DI*DI-8i DS«-3 LIT M A"; 

end; 



ui*r; 



SORCEOESTlNCOMPARECTEMPtU* TEMP [ 2b] p 6 3' TEMP t 15 J * 
DAB* FOR 1*44 STEP 1 UNTIL 50 DU TEMP[ I"43 J *T£MP[ 13 ; 

FILL ANS [«]WITH QCT2 12223^04040404 , 0CTln534, 

0CTl/b7606U606060o0# OCT 133* 
OC T 24252627 30 3 1<U4 2, OCT 4445464 7, 
OCTQQSOMftigOOOQOOOO? 



TEMPC443); 



CVN*7; 
PN0M17; 
VERIFY 



end; 
procedure pi 18; comment stream procedure source bit 5.12.13.6 km*; 

BEGIN 



STREAM PROCEDURE S6CHEC«(U JK >; 

BEGIN 
LOCAL Q* R* F t F. tit C , B > A; 
LABEL 



Ll» L2» L3; 

UI * LQC R; US *■ 8 LIT "AAB6CCDH»S TALLY «■ 
DJ—fc LQC QJ-OS-* 8 HI Z'AHCOEFGH'S 



170520 
170530 
\±2.Q3JLQ 
170550 
180000 

QjULaflXU.0 
180020 
180030 
■1.80040.. 



o; 



si * loc o; 

COMMENT SB IS o; 

TF SR TMFN HFGTN A»T*H.Y: qfl TO 



TALLY«-2i A*- TALLY; 

Ll» SKIP 5 sb; di«-luc r; 

-CUMMENT SB IS 1/ 



Lt END; 



TALLY-C; 



_L2J_ 



IF SB THEN BEGIN TALLY»TALLY+3; B«-TALLYJ GO TO L2 
END; IF TOGGLE THEN BEGIN DS<-3 CHR;T ALLY*T ALLY+2 END;0 
S KIP ? S B; TALLY » O; [ _q 



COMMENT SB IS i; g 

IF SB THEN BEvilN IF 3 SC = OC THEN BEGIN C*TALLY 
END; IF SC* "F" Thf, N TALtY<-TALLY^4 E N p; TA LL Y + TA llY ,_fl 



SKIP 6 sb; 



+i; c*tally; 

TALLY «• 0; 



comment sb is o; 

IF SB THEN BEGIN 
BEGIN SKIP 2 SB; 



D*TALLY> GO TG Li END; 
TALLY^IALLY + b; 0«-TALLY END; 



L3« SKIP 1 SB; TALLY«-Oi 
COMMENT SB IS H 
IF SB THEN BEGIN 6(TALLY » TALLY+7; IF SB THEN 



jump out) end; e*-tally; 

TALLY*- 0; 
COMMENT SB IS 1/ 



IF SB THEN BEGIN If SC »"H" THEN BEGIN SI*LOC Q 

; di*loc r; if i sc * dc then tally*tally+8 end 
end; tally»tally + i; f » tally; ____^ 



si«-loc a; di*ujk; ds* 6 wds; 
end; 
sbcheck(tempcij); 



fill ans[*j with 0ct2* 0ct3» 0ct5* 0ct6* 0ct7# octli; 
cvn*6; 

pno ♦ lie; ; , 



VERIFY 



end; 



PROCEDURE P119; COMMENT STR PRBc TOGGLE STATEMENT 5-12-13.7 KM.; 



BEGIN 

INTEGER ONE* TKQ#ZER0*SIX; 

STREAM PROCEDURE TSStTQGGLEC ARAYIN, InARA Y ,q N E, 2£rq, TWO, SI X )J 



170430 
170440 
120_45.IL. 



170460 
170470 



170490 
U0500 
1 70 51 - 



180050 
180060 



180080 
180090 

laoioo 



180110 
180120 
1-180130- 
180140 
180150 
180160 



180170 
160180 
UJU9_0_ 



180200 
180210 
18022 



180230 
180240 
1 80250 



180260 
180270 
180280 



180290 
180300 
18031 Q 



180320 
180330 
1 80340 



180350 
180360 
180370 



180380 
180390 
U040 Q 



160410 
180420 
190000 



190010 
190020 
190030 



r- 



10 

11 

12 
13 
14 
15 
16 
17 
18 



19 
20 
21 



22 
23 
24 
25 
26 
27 
28 
29 
30 



31 
32 



34 
35 
36 

37 ~ 

38 

39 



40 
41 



45 



46 
47 
48 
49 
50 
51 



52 
S3 
54 
55 
56 



VALUE ONE' 
BEGIN LABEL Ll* 

- LCCAL 



ZERO* TWO* Mx; 
EXITRIN* Li* L3; 
A/H*C. 



TALLY«-0> 

OI*LOC a; 0S*8 LIT 

ST » [ PC A? 



"A' 



IF 5C= "A" THEN uU TO LI/ CLEMENT SET TO&GLE TRUE; 
GC TO EXlTRiN/ CLMMENT TOGGLE WAS NOT SET TRUE; 

p i » i nakay; . 

ll» if toggle th£n 01 ♦ arayin; 

IF TOGGLE THEN DI * Cl + 7; 
TF TflflftLf THFM Sl Unr. At 



IF TOGGLE THEN B<-Qi; 

IF TOGGLE ThEN DS*1 ChR; Sl*5J-i; 

JF.- TOGRLF THFN D_* D\E hliS. Sl -ST-3; 

IF TOGGLE THEN DS* ONE OCT. 

IF TOGGLE THEN DS*2 AOD; COMMENT TOGGLE 

TF TOfifiLE THEN GO TO EXTTR TN. ST«.ST»3. 



190100 
190110 
...fl.U9Ql?jQ_. 
190130 
190140 
-1AQ4 50 . 



IS FALSE* 



IF SC="A M THEN GO TO L2 ; GO 
L2' COMMENT TOGGLE IS TRUE; 01 
_ IF TOGGLE THEN PS «• TWO ZQn; 



to exitrin; 

♦ D1 + 4; 



190160 
190170 

fljULafliaa 

190190 

190200 
13.0.210 
190220 
190230 
190240 



IF TOGGLE THEN DS* 8 LIT "B H ; 
IF TOGGLE THEN SKIP 42 OB; 
IF TQfifil F THEN O S <• S IX S E T ? 



if toggle then 6 ct ally«-t ally + 1 ); 
otally; si+loc c; ds+i kds; si*loc a; 
4-f 6 sc 5 pc thfin ta..ly»0. 



IF TOGGLE THEN GO TO EXlTRlNi 

c*tally; si«-loc c; os * i wos; 

TF Sfl THFN fifl Tn E-TTRTm 



si«-loc a; 









-04 







if toggle then gq 
l3;go to exithin; 

L38 IF TOGGLE THEN BEGIN 3( 



to exitrin; 

IF 



IF SC= "A" THEN GO TO 


SC*"E" THEN BEGIN IF Q 



toggle twen jump out eno; if toggle then tally *7 } 
jump out) end; c*tally; si*loc c; os*i-wos; 

exitrini end; 

ONE 



«■ 1; two «■ 2; SIX «• 6; _ERC «■ 0; 
TeSTTOqGLE CTEMP[D* T£MP [2iJ»0NE*ZE R C* two* six); 



"f"ILL""AnSc"*~] WITH 0CT21* OCT _1212 12 1212 12 12 1* OCTl* 



OCTO 10 1000000002020, 
0CT77* OCTiOf QCTO, 



cvnmo; 

PN0*119; 
VERIFY 



QCT2222222222222222* 
0CT10* QCTIO* 



end; 
'roceoure pl20; comment stream proceqore source for alpha test 

5»12,13.8j FEB 6,1963 KM,; 

BEGIN 



STREAM PROCEDURE TEST ALPHAC ARA YI N ) * 
BEGIN 



LOCAL a; 

LABEL L1»L2*L3*L4* 
DI»LOC AJ 0,3*6 LIT "ABC*109»"; TALLY»QJ 



si*loc a; di * arayin; 
if sc* alpha then begin if 
"a"; ps»e lit*b"; go to li 



TOGGLE THEN DS*8 LIT 

end; if toggle then 



OS «• 8 LIT "C" ; 05 * 8 LU "D"; 

Li» si*si+3; 

IF SC« ALPHA THEN BEGIN IF TOGGLE THEN PS»8 LIT 



190040 
190050 
1..90U6U. 
190070 
190080 
190O9-0 



190250 
190260 

-0 

190280 

190290 

1-9.0.30-0.. 

190310 

190320 

1AQ.3.3-CU. 

190340 

190350 

1S»0JL__L 



190370 
190380 
-__Q1___.. 



190400 
190410 

i 90 420. 
1 904 30 

190440 

190450 



190460 
190470 
190480 



190490 
200000 
200010 



200020 
200030 
200040 



200050 
200Q60 
200070 



200080 

200090 
2_Q.Q-1.Q0_ 



200110 
200120 
200130 



ft 

2< 

3 
4 
i 

e 
7 

8< 

9 
10 

111 
12 



60 ' 
51 
52 
53 I 
54 
55 
56 * 
SI 



# • 



16 
: 17 

lis 



20 
21 
22 
23 
24 
25 
26 



27 
2B 



29 

30 
31 
32 
33 
34 
36 
36 



41 
42 



49 

50 



52 



55 
56 



L2i 



k"; DS<-8 LIT "8"; GU TIJ L2 
DS «- 8 LIT "C"; DS«-8 LIT ' 
ST*- SX±li 



end; if toggle then 



if sc«alpha then begin if 

M A tt ;0S*8 LIT"B*; GO TO l3 



01200140 
01200150 

oi2om&a. 



ns»« LIT «C"i nS»fl I tt "0"; 



toggle then os + 8 lit 
end; if toggle then 



01200170 
01200180 
01 200 190. 



L3: Sl*SI+i; 01200200 
IF SC«ALPHA THEN BEGIN IK TOGGLE THEN DS«-8 01200210 
LlT w A w ; QS»d L I T " B " > GU TQ lJ EJvOJ IF TflGtiU 01 200 220. 



THEN 

L4» ENO; 

.TESTALP H A f T E M PC1DI 



DS»8 LIT *C"JDS«"8 LIT M D M ; 



FILL ANS[*3 



CVN*6; 

PNO ♦ i2o; 
_Y£.HI£X 



01200230 
01200240 
01200250 



WITH 0CT2121212121212121* UT2222222222222222# 01200260 
QCT242424i£424242424, UC T2 12 1212 121 2 12121* 01200270 

QCT???2?2*22??2???2; U CT 24 ?A?A 2424 2424 24 i O42OO28O- 

01200290 
01200300 

. 01200310 



end; 

procedure pl2i;c0mhent for statement multiple list elements; 
aE-G m __ 



REAL E*F»C; 
INTEGER 0*G#H; 
B OOLEAN A«B; 



01200320 

01210000 

, 01 21 00 441- 



INTEGER PROCEDURE SEVEN (FMLj; 

INTEGER FML; 

BE GIN SEVEN* FML MOD (FML+5) LND; 



01210020 

01210030 

JQ 1210Q4Q , 



E* 15.5; F<- 7.5; C<- 2.0; A* TRUE; 6* FALSE ; 0* 2732 ; 

G* 2; H* 4; 

TEMPrl3» 15; TEMPC23* 3; 



01210050 
01210060 
01210 Q70 



FOR C* TEMPCU+ TEMP[2j» StVENC 10 )» "AB"+ "A" 
G«. G+i; TEMPCGI*- C + 5 END; 
_£QR C» F- E + 16 ST E P 1 UJSLLL L S EVE N (9)» 



» 5 DU BEGIN 



01210080 
01210090 
012101 00 



D. U4I83 + D.C40:33 STEP D,C45»1) 

UNTIL TEMPC13-6* SeVeN(6)+2 STEP "AB H MUd "A" UNTIL M A' 

15 STEP 3 UNTIL ; 



01210110 
01210120 
Q 12101JJO. 



20 DO BEGIN G* G + W TEMP CG)<- C END; 

FOR O F-E STEP ( -F ) WHIlE G< 16, SEvEN(2) 

W HILE A OR B, 8 



01210140 

01210150 

JLLiiiUAfl- 



x (-4) 



STEPC-F) UNTIL - CSEVEN(O)) DO BEGIN G* G+i; H<- H + 1I 
A* B00LEAN(H,C45tl3); 

TEM PCG3*- SEVFN CO END; 

FILL ANS [*] MITH 0CT17* 0CT3» QCT27* 0CT17* 0CT2150* 



01210170 
01210180 
12 1 01 90 



01210200 
01210210 
01 2 1 220 



0CT12, 0CT1U* OCTll* 



0CT10* OCTll* 



01210230 
01210240 



0CT10* QCTU* OCTl/j UCT22* QCT2 000000000000002* 012 10250 
QCT200QOOQOOOOQ0005# OCT2000000000000002* 01210260 



CVN<- 20 ; 
PN0«- 121 
VERIFY 



OCT2000000000000002* 

oc ti; 



OCUO* 



01210270 
01 210280 



end; 
procedure p122; comment precedence of logical operators ek 

_ :. ' 29 NOV 62; 



01210290 
01210300 
01210310 



BEGIN 



01210320 
01220000 
01 2 200 1Q 



INTEGER X1*X2»X3#X4; 

BOOLEAN A1*A?*A3,A4*A5,A6*A?; 



XI 
X3 



X2 ♦ 

3; 

Al 



II 



01220020 
01220030 
01220040 
01220050 
01220060 
Q122Q070 



J0 



• • 



r~ 






rT 

2 
3 
4 
5 
6 
7 
6 
9 

10 
11 
12 
13 
14 
15 
16 
17 
18 



19 
20 
21 



22 
23 
24 
25 
26 
27 



28 
29 

30 
31 
32 
33 

34 

35 

36 

37 ~ 

38 

39 

40 

41 

42 

43 



45 
•6 
47 
(8 
49 
50 
51 



52 
53 



54 

56 



56 



Al 
A5 

IF 
IF 
IF 



X4 
Al 
Al 



A2 «■ A3 «• A4 «■ TRUE; 

A6 ♦ A7 «• false; 
.IE-M OT Xl'X? THE N 3XfiLL U±Z. -L Li?.i T taEH ]»ajL 



>Xt+X2 
8R A5 

EQV A 



+ X3 

AND 
5 IMP 



THEN TEMP 
A6 THEN 
A2 OR A6 



&2 3* 5 ELSE 
TEMPC3] ♦ 7 
AND AS THEN 



TEMPt2J * 7; 
ELSE TEMP[3] * 5; 
TfcMPt«3»7 ELSE TEMPU3* 






__ 


5i0 



220080 
220090 
I1220UDJL. 
220110 
220120 
220 130 



IF A6 EQV *5 AND A2 THEN TEMPCSJ* 7 El^l TEMP[53 + 5/ 

IF X4 < X3 EQV XlsX2 IMP Al THEN TEMP[6)«- S EL*E TEMPC6]* 7; 
IF A l IMP A5 IMP A6 THEN ]EMP[7] «• 7 ELSE TEMP [7J <- 5J 



IF XI 

NOT 

IIJUL 



*X2 OR 
A5 IM 



NOT 
P A4 

V NOT 



XUX3 AND 
AND X J-X2 
Al IMP XI 



A5 IMP A6 EC 
THEN TEMPC83 
» X2 Uft NOT X 



V A5 OR X4>X1+X2+X3 AND 
♦ 5 ELSE TEMPC83 *■ 7i 
3>X4 THEN TEMP [93 » 5 __0 



ELSE TEMP19 
IF NOT A5 QR X4< 

THEN T E*P U 



] ♦■ 7i 

X1+X2 IMP 

03 «■ i> L LS 



A3 E<3V X1 = X2 
E T E MPC 1Q3 »_ 



IMP NOT X4<X1 AND A2 
1} 



IF NOT X4>X1 EQV X4>Xl AND A5 IMP NOTCAl OR A5) THEN TEMPU13 

♦5 ELSE TEMPC113 * 7} 

IF AS EQV X4>X1+X2 QR Al IMP FALSE THEN TEMPT1P3 » 7 ELSF 






qui 



o 



TEMPC1 

IF A4 OR Al 

TFMPCl 



23«- 5 

AND 

33 «• 



A6 AND N 
7 ELSE UM 



LT (Al OR A5 

Pti3i £ 5; 



AND A6 IMP X4<X1) THEN 



IF NOT Al E«V X4*X1 OR C Al 

TEMPCU3 * 7 ELSE TE 

FILL ANSt»] KITH 0CT7, OCT 



AND TRUE) AND A& OR FALSE THEN 
MPC143* 5) 
7* 0CT7, 0CT7* QCT7, 0CT7, QCT7, 



0CT7'0CT7/ 0CT7, 0CT7» 0CT7* 0CT7* 0CT7; 



CVN 
-ENJL 



i«; 
1 2?; 



PR 



END 
OCE 



VERIFY 

; 

DU RE P123; COMMENT GO Tq STATEMENT (PROCEDURE) Ek 20 DEC 62; 






__01i 




_Q. 









BEGIN 



LABEL 
INTEG 



L12* 
ER I#J 



LLP' LL> 

#Kj5UM>B> 



L' L03* L02; 

c> a; 



BOOLEAN T#T2»T3#T4»t5*T6*T7»T8*TEST; 

PROCEDURE PRK I , J,K, SUM*B,C, A, T> T2# T3, T4, y5, f7, TEST* 

._. L02, LQ3* LLP> L); 



INTEGER I' J#K,Sum*B>C*a; 
BOOLEAN T » T2> T3* M* T3> T7# 
JLA.B.ELL L Q2, L03' Ll>% L i 



test; 



BEGIN 
LI* 



LABEL Li; 

BEGIN 

LAB£k 



LL1*LL2>LL3,LL4,L2»LL5*LLNjL1>L3»LM5*LL6J 



IF TEST THEN GO TO UU 
LL2« IF T THEN GO TO t? J 

LL3» I t LtU TLMP H 3 <• , 1; 



GO TO IF I< 2 THEN LL2 ELSE LL4j 
L1.4J GO TO IF I<3 THEN LL2 ELSE LL5; 
LL5I IF I<» THEN QO TO LL3* 



GO TO 
L2» I 
ELSE 



L2> 
F J < 
UL3 



10 THEN GO TO IF SUM £ K THEN LM5 
ElSF GO TO LL6J 



LM5* 
IF T2 
FOR C 



J * 

THE 
* 1 



j+i; 

N 60 TO LLP* 

STEP 1 UNTIL 10 00 SUM <• SUM ± U 



GO TO 
LL6: 



L2i 
BEGIN 



LAblLLNN,LTN*LTT; 



lEAb dbsum; 
if t3 then go lnn; 
dbsum ♦ sum ♦ sum ; 



220140 
220150 
220i.6_0_ 



220170 
220180 
lift 15 <3. 



220200 
220210 

.0_22i3. 
220230 
220240 
2£fl2M_ 



220260 
220270 

220280 



220290 
220300 

lanaiiL. 

220320 
220330 
,-22-0.344. 
220350 
220360 
230000 



230010 
230020 

230030 



230040 
23qo5q 



AinQQAQ.. 



230070 
230080 
210..Q9Q 
230100 
230110 
230120 



230130 
230140 
23015Q 



230160 
230170 
230180 
230190 

230200 
23Q21Q. 



230220 
230230 
23024Q 



230250 
230260 
230270 



230280 
230290 
230300 



# • 



I 



2 

3 

4 

5 

6 

I 

8 

9 

10 

11 

12 

13 

14 

f.'i 

16 

1.7 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

26 

29 

30 

31 

32 

33 

34 

35 

36 

37 ~ 

38 

39 



tempcbj «• dbsum; go to ltt; 

Limn* TEMPLB] * "BYPASS"; 

IF lit THF . N GU TQ L TN ; 



01230310 
01230320 
01230 320- 



LTTj 
LTNJ 



GO TO L3J 



fnq; 



L3 S BLGIN 



01230340 
01230350 
01230360 



INTEGER xi; 

U T7 THEN GQ T Q j j 



01230370 
01230380 
01 23Q39Q ,. 



XI *■ Ai 

IF T5 THEN GO 

TtMPcxn *■ a ; 



to lln; 



01230400 

01230410 

Jil21M20_ 



LLi: 



GO TO 

end; 

UMP[6J 



LLN> 

«• "TST"; 



.Ml 



GO TO 
LLNt 

end; 



102; 



T3 «• T4 «- T5 ♦• TRUE; H* 7i 
TEST «. T «• T2 * T7 ♦ FALSE; 

■1___».,J_*-_J<L.»_ SUM «■ Q f 



01230430 
01230440 
„ 0--12 30 45 0., 
01230460 
01230470 
01230480 



01230490 

01230500 

..Q.12J1Q5 10 



PR1(I#J*K#SUM^B*C#A»T#T2*T3#T4*T5*T7»TLST#L02»L03'LLP*L); 1230520 
TEMPC5] * SUM; 01230530 

JLEM » TRUE; - -O1230540 

PR1 (I,J*K,SUM*B,C,A,l,T2M3,T i *»T5,T7,TtST^La2,L03#LLP*L); 01230550 
L02J TEST * T3 «• T5 «■ FALSt> 01230560 

.J_.J-_TRLLEJ 042.3J15-ZXL. 

B ♦ 8; 01230580 

A ♦ 9; 01230590 

P Rl fI»J>K»SUM»8»C*A*T>TgMi«Tft»T5»T7<TEST,LQgjHHfLLFjL)J t 2.J0600 



TEMPH03 «• 
K «• 1022; 

J » n; 



'TEN' 



01230610 
01230620 
■■Q1230A3.0. 



PRl (I>J,K#SUM>B,C,A,T,T2>T3,T4,T5,T7#TEST,L02,L03>LLP#L>; 0123 064 
L03I TEMPCin *■ "K300"; 01230650 

J_t JS_±_Jii _Q_L23J2L6_6.Q.. 



T2 * TRUE; 01230670 

PRl (I,J,K,S(jM,B,C,A,T#T2#T3,T4,T5,T'7'TE5T,L02,L03,LLP#L); 0123068 

-kLPl T£MP[ i 2 ] » M2 H ; , QjJLiGMS, 

J * 10; 01230700 

T3 «• T7 «■ TRUE; 01230710 

PRl f I*J*K*SUM»B,CjAjT,T2*T3>T«>T5,T7>TESTjLn2jLQ3*LLP,l .)J 012307?Q 



L* TEMPC13] ♦ "LUCKY-; 

FILL ANStO WITH OcTl* QCT2' 0CT3> QCT<«> QCTl«4> QCT636263* 

__ QCT227Q47216262, nC T 227 Q47 2l626r> » , 

OCTH* 0CT632545* OcT«2030000# 



40 
41 
42 
43 



01230730 
01230740 
012307°} 



0- 



45 

46 
47 
48 
49 
90 
61 
52 
53 
94 
55 
S6 

5?_ 



-C VN «• 13 ? 



0.-CT-U* 0CT632545* OcT«2030000» 
0CT6302# 0CT4364234270; 



PNO * 123; 
VERIFY 



01230760 
01230770 
0l2307fl0 



end; 



01230790 
01230800 
01230810 



PROCEDURE Pl24; COMMENT GO TQ STATEMENT (SWITCHES) £K 17 DEC 62; 01240000 
BEGIN 01240010 
LABEL Ll>L2,L3»Lft»L5*L6*L7jL8,L9,LlQ»LU>Ll2,L14>L15*L16»Ll7; 01240020 



INTEGER Xl»Xg»Yl#Y2M#K#L* 
SWITCH SW2 FORWARD ; 
SWITCH SW3 FORWARD ; 



01240030 
01240040 
01240050 



switch sw1 
switch sw2 
switch sws 



♦ Li#L2#L3»SW2CYU*SW2CY2*7]*L6,L7,Ll5; 01240060 

♦ L3»L4#L5»SWltXl3#SWnX23*L8*L9#L16; 01240070 
» L10» IF I»M THEN LU ELSE H2,SW3C4 3>SwlC X2 + 3 3; 01240080 



• • 



2 
3 

4 
5 



• 
• 



9 
10 
11 
12 
13 



• 
• 

tj 

I 

E W 



14 

15 
16 
17 
18 
19 
20 
21 



22 
23 
24 
25 
26 
27 
28 
29 



30 

31 
32 
33 



34 
35 
36 

37 ~ 

38 

39 

40 

41 

42 



45 
46 
47 
48 



49 
50 






51 
52 
53 
54 

55 

56 



Yl 

Y2 

JUL 



i; 

yi; 

JLL. 



X2 «• 5; 

I * K .■♦ 2J 
GO T. Q swim; 

H' TEMPC13 «■ i; 
L2: GO TO IF Yl= 

-LH_ T E MPC 2 3 *■ ? .} 



01240090 
01240100 
Q1 24Q.ua. 



01240120 
01240130 
Ql240lAja._ 



1 THEN ^w lt 33 ELSE L'->; 



GO TO I2i 
L 5» B EGIN 



01240150 

01240160 

■XLU.4Ql7.fl. 



INTEGER 
XI ♦■ 4; 

JL2-*- Q? 



xux2; 



01240180 

01240190 

JQ124Q?0JQ. 



1ZL 



GO 

end; 

TEMPf33 



TO SW21X13; 
» 3; 



GO TO SW2CX2+23; 

L9I TEMPC4] *■ 4; 

.-U.__t._JlA 



L14I L * L+i; 
GO TO SW3CU3* 

-LJJ_i TEMPC51 «• 

GO TO L14> 

LIU TEMP[6] «• 

JLA- K + li - 



_5J_ 



6/ 



GO TO SW3CL3; 
L12» TEMP[7] ♦ 
_iQ._I_l._L_L_i 



7; 



L 15 * TEMPt8]*8; 
GO TO SHHCX1-D3; 
J-Ai BFSIN 



INTEGER X2; 

X2 ♦ io; 

BEGIN 



INTEGEK Xi; 

X2 *■ Qi 

&fl TQ SW2EX2-31 



L8J L4! 



END 
END/ 
Lt6* TEMP[93*9; 



BEGIN 

LABEL LA,LB#LC; 

SWITCH Sw4 <• LA'LB*LQLl7; 



LA! 
JJLL 



Yl «■ 2 ; 
TEMPC103 
TEMPC10J 



GO TO SW4CY13; 
* ; QO TO IQi 
» IO; 



LCI GO TO SW4C43 END; 
L17I TEHPC11J * li; 
PILL ANS[*3 WITH OCTl* 0CT2> QCT3# 



QCT4' UCT5* OCT60 0CT7* 



CVN 
PNO 



11* 
124) 



0CT1O* 0CT11* QCT12'0CT13; 



VERIFY 

end; 
procedure p125; 



COMMENT 3.11*3.2 PROCEDURE BOGY VARIATIONS; 



BEGIN 



LABEL L1#L2; 

INTEGER I»JJBOOL£AN BJ 



01240210 
01240220 
-LU._-0-2_lQ.. 
01240240 
01240250 
.A1M241L 



01240270 

01240280 

SLLM.Q.29Q. 



01240300 

01240310 

.0l 24 fl.22£ 



01240330 
01240340 

0124Q35Q 

01240360 
01240370 
QU40 3fl_L 



01240390 
01240400 
01240410, 



01240420 

01240430 

J_I__ft_L4__L 



01240450 

01240460 

JU2&MZJL 



01240480 
01240490 
01240500 



01240510 
01240520 
01240530 



01240540 
01240550 
01240560 



01240570 
01240580 
01240590 



01240600 
01240610 
01240620 



01240630 
01240640 

01250000 



01250010 
01250020 
01250030 



li 



12 

13 



17 
18 



23 ' 



27 
28 



30 



33 
34 

35* 



41 ' 
42 



46 
47 
48 



C 



50 I 



52 



g 



r 



h 



2 
3 
4 
5 
6 
I 
B 
9 
10 
11 
12 
13 
!4 



i «• 6;j*i2; b* true; 

COMMENT ASSIGNMENT ST 
TE M Pj_ 1_]_ <■ i; TLMP[23» 



ATtlMErtT; 
TEMP[2J»TEMp[23»I .U5: 1 3J 



TEMP£33.[46»23«-7; 

BEGIN 

INTEGER PROCEDURE 



ARITH (Hi 



250040 
250050 
250060 



250070 
250080 
250090 



16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 " 

32 

33 

34 

36 

36 

37 " 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

SI 

52 

53 

54 

55 

56 

57 



INTEGER li 
BEGIN 

TEMPC43 



<■ CI+6)-(+2/(I-5)); AhJlH «■ TEMPC4J fcND; 



250100 
250110 
25012 



PROCEDURE BOOL CB>* 
BOOLEAN Bi 

BEGIN 



250130 
250140 
25.0 ISO 



TEMPC53 * REALCB 
PROCEDURE GOTO; 
BEGIN LAREL L\i 



) enu; 

CiU TU l\i Lll TEMPC7J + 4 END/ 



BEGIN tNO; 
ITEGER li BEGIN T£M 
nn; dumm y; 



PC63 «• 1 + ARjTHd) ENDiO 

Q 



PROCEDURE DUMPY* 

PROCEDURE CAIL(I); IN 

„GALL. (D i enni Cfl ,; Gn 

end; 

FILL ANS[*3 WITH QCTl» OCTl» 0CT3# 0CTl2> OCU> QCTl3» QCT4; 
...Cm+IJ—EH n»l,25; V ER TFY . - - 



250160 
250170 
250180 



250190 
250200 
2S0? 1Q 



250220 
250230 
250240 



end; 
procedure p126; 

1&1K. tntegeR 



-B£J 



COMMENT 5.11,3.2 RECURSIVE PROCEDURES. CCZ* 11/28/62; 

i; : 



REAL PROCEDURE FACTOR 
BEGIN FACTORIAL «• IF 
FOR I » 1 STEP 1 UNTIL 1 



ial cm; value n; 

N = THEN 1 ELSE 
Q_Q O JiLMJiLL ) t F .AC. 



250250 
260000 
260010 



FILL ANS [t3 

cvn «• io; 



WITH OCTl. 0CT2* 0CT6* OCT 
0CTH660* 0CTU6600, OCT 



INTEGER N; 

Nx FACTORlALCN-1) ENO' 

i qria lcij; _o 



260020 
260030 
24flM0_ 



30* 0CTl70# 0CT1320* 
1304600, DCT15657400; 



2o0050 
260060 
26.&Q_7_D_ 



PNO «• 126; 
VERIFY 

e nd ;. 



PROCEDURE P127; COMMENT 5.11 
BEGIN 

REAL PROCEDURE RP(I); 



.4 TYPED PROCEDURES, C. ZETHRAEUS* 11/29; 
COMMENT RPa Hi 



260080 
260090 
8 , 6 0100. 



2/0000 
270010 
270020 



INTEGER i; 

BEGIN 

REAL X. Y» z; BOOLEAN ri ; 



2/0030 
2/0040 
2/00 50 



1*1*1* b*b00lean<i.c44»1 j); 
x*rp*y*z+i; 

end; 



IF NOT B THEN Z*RPCU*U 



270060 
270070 
27QQA0 



INTEGER PROCEDURE IPli COMMENT IP1 « 6; 
BEGIN INTEGER I* 
FOR I» 1 STEP 1 UNTIL 00 1P1-1; 



2/0090 
270100 
2/0 110 



end; 

integer procedure ip2 

BEGIN LABEL Lll 



; COMMENT IP2 ■ 3; 
INTE G ER IPXJ 



270120 
270130 
270140 



FOR IPXM STEP 1 UNTIL 4 DO IF IPX * 3 ThEN GO TO Li; 

hi ip2*ipx end; 

INTEGER i; 1*0 i 



2/0150 
270160 
270170 



47 1 

48 

49 

50< 

51 

52 

53 i 

54 

55 

56 ' 

57 



TEMPtl3*RPC 
FILL ANS[*3 WITH O0T1 
CVN 4. 31 



n; tempc23*ipi; temp[33*ip2; 

7, OCTl* 0CT3; 



270180 
270190 
270200 



PNO ♦ 127; 
VERIFY 



end; 



270210 
2/0220 
2/0230 



PROCEOURE P128I COMMENT 5.11 
BEGIN PROCEDURE W66i TEMPC 
PRO CED U RE W 5 6; H6 6I 



PROCEDURE WEB> C.*EThREAUS# 11/29/62; 
13 * TEMPU3 *i; 



280000 
280010 
2jBj0_fl2Q_ 



2 
3 



E 
6 

7 

a 

9 
10 

11 

12 
13 
14 
IS 
16 
17 
18 



19 
20 
21 
22 
23 
24 



2S 
26 

27 
28 
29 

30 



31 

32 

33 

34 

35 

36 

37 " 

38 

39 



40 
41 
42 
43 ~ 



44 
45 
46 

47 



48 
49 
50 
51 



52 
53 



54 
55 



56 



PROCEOURE M46J W36J 

PROCEDURE H36/ W46; 

.-PJtttlCFnURF hgfSi h.lft? 



P80CE0URE W16) W26; 

PROCEDURE W65J BEGIN W66; W56 END; 
panrFHURr nm*; rfgiki wag; wsm hji& fnhj 



PROCEOURE W45; 

PROCEDURE W35; 

-PROCE DURE * 25 ; 



BEGIN W55/ W46; W3o END' 
BEGIN W45; W36; W2c END' 
BEGIN W35; *26; H16 FNDi 



PROCEDURE M151 BEGIN w25; W16 END; 
PROCEDURE W64J BEGIN W65J *55 END; 
PROCEDURE h5«; BEGIN rt64J W55; W45 



PROCEDURE W44; BEGIN W54/ 
PROCEDURE K34; BLGlN w44; 
PROCEDURE H?*; RUTN H34' 



£hHL 



*U5; 
*35; 

*?5; 



^35 

W2S 



end* 

E NQ I. 



PROCEDURE M141 BEGIN W24; H»15 END; 
PROCEDURE W63* BEGIN H64J W54 END; 
PROCEDURE H53; REGlN W63; W54i H4a 



PROCEDURE W43' 
PROCEDURE W33; 
PROCEDURE MIL 



enij; 



BEGIN W53' W<*4/ W3<4 END; 
BEGIN W43; «34; W24 ENU; 
REGlN w33; "24/ H14 FNP;. 



PROCEDURE W13; BEGIN W23; WJ4 END; 
PROCEDURE W62I BEGIN W63* W53 END; 
PRQCEnURF WSPf RFRTM wag; WS3; in 4 3 



end; 



PROCEOURE M2; 

PROCEDURE W32; 

■■ERflCEnURF W2?t 



BEGIN W52; w43; W33 END; 
BEGIN W42> W33/ W23 ENC; 
BEGIN \Hi?.j w?a; mi.. Fhiui.. 



EN P> 



PROCEDURE Wli; BEGIN W2l; Wl2 END; 
Will 

FILL ANSC»3 hITh JCT35314 * 



CVN*i; PN0«-128; VERIFY 



ENDi 



01280030 
01200040 

.juzafljasii. 

01260060 
01280070 

01280090 

01280100 

..QLilAO_LL&_ 



01280120 
01280130 



0128015C 

01280160 

.£4,-2-8-0420 



01280180 
012B0190 
01280200 



01260210 
01280220 
01260230 
01280240 
01280250 
— 01280260 



PROCEDURE W12; BEGIN W22* hj3 END; 
PROCEDURE W6i; BEGIN W62; «52 END; 
P ROCEDURE W51I BEGIN rt61J ^)S2J K42 



01280270 

01280280 

JLUfl02ftfl~ 



PROCEDURE W4i; BEGIM W5i; «42; W32 END* 
PROCEDURE W3i; BEGIN W«l> w32; H22 END> 
PROCEDURE H21) BEGIN HjJJ *22; W12 ENu> 



01280300 
01280310 

012 B032C 
01280330 

01280340 
1280350 



01280360 
01280370 
0128 0380 



PROCEOURE Pi3jJ COMMENT STREAM ELSE STATEMENT b. 12. 13-1 9/4/63 



BEGIN 

BOOLEAN TRU»FLS; 

INTEGER TOGT; 



01280J90 
01280400 
Olil OOOO 



stream procedure thenelsec ta, tb, tc # to, t£* tf , tg , yh, ti * t*l> tk# 

togt#tru,flS); 
value togt»tru,fls; 



01310010 
01310020 
01310Q30 



BEGIN 

LOCAL TU 

LABEL Ll»L2»l3»L4»L5*L6»L7»L8»L9>Ll0»Lu,Ll2;Ll3; 



01310040 
01310050 
01310060 



COMMENT SET TOGGLE TRUE I 

si * loc togt; di «• luc 

S i t SIM ' 



01310070 
01310080 
01310090 



ti; os ♦ 1 hus ; di * oi-i; 



comment test then STMT lb executed#else stmt 

IF l.SC « DC THEN 10 TO LI ELSE GO TO L2; 

si » loc tru; 01 » tb; ds » 1 hds; 



is ignored; 



01310100 
01310110 
01310120 



111 
L2I 

L3I 



SI 
SI 
IF TOGGLE 



«■ loc tru; 
* loc fls; 



di * ta; ds 4. 1 wds; 
di * ta; ds «■ 1 wds; 
then begin si * loc tru; 



GO TO L3; 

di > tc; DS 



0131013 
01310140 
01310150 



«• 1 WDS 



01310160 
01310170 
01310180 



END 
ELSE GO TO L4 ; GO TO L5* 

Lfti si » toe fls; di * tcj ds * 1 wds; 



01310190 
01310200 
01310210 



ft 
2 I 

3 

4 

5 ( 



^r 



LSI IF TOGGLE THEN TALLY <• TOGT 
EL^E TALLY «- FLS; 
Tl - 1ALLXJ SI «• |„U C 1 U D I 



* to; us » i w dsi 



COMMENT TEST THEN STMT IS IGNORED* ElSE STMT 
SI ♦ LCC TOGT; DI * LOC FLS; IF 6 SC m DC 
THFN TALI Y » Fl S 



IS EXECUTED, 



01310220 
01310230 
0l3iQ2AO 



ELSE TALLY <• TRU> 
Tl «■ TALLYjSI * LOC Tl/ DI ♦ TE; 0* 
SI t LCC TRu; DI <■ TF; PS t 1 *nSi 



01310250 
01310260 
01310270- 



♦ 1 wdS; 



01310260 
01310290 

Q131Q3Q& 



IF TOGGLE THEN BEGIN 51 * LOC FLS; DI «■ Tg; OS ♦ 1 WDS 01310310 
END 01310320 

F l. SE GO TO LAI Q13 1 Q33Q 



SI «■ LCC tro; DI «• th; ds ♦• 1 WDS; 
L6I Si «■ LCC THU/ DI «■ TG/ OS «■ 1 V»0S; 
.LZJL-IE T O GGLE THLN GO f O U . 



GO TO L/i 



SI 



L8l 



_LCJL 



IF TOGGLE THEN 
ELSE 



ELSE BEGIN SI * LOC 

end; GO to ls; 

TRUf DI <• TJ# DS <• 1 



TRUI DI * Til DS «■ 1 WDS 



WDS/ 



01310340 
01310350 
01310360 



GO TO 
BEGIN 
TALLY 



110 



fls; 



8CIF TOGGLE THEN GO TO L12 

ELSE BEGIN 
. IF TUG GjE 



01310370 
01310380 
0131Q3Qn 
01310400 
01310410 
Q1 3 1 04 20 



THEN GQ TO 



ELSE 

TALLY «• TRUI 

jump out; 



end; 
l12* tally «- flsi jump out! 

L13» TALLY «• TQGT; JUMP PUT;) 



01310430 
01310440 
01310450 

01310460 

01310470 

-01310480 . 



L9l 



Tl 

JiH. 



* TALLY; 
TQ L 1 I t 



SI 



ENUI 
«- L0 C 



013J0490 
01310500 
01310510 



Tl; 01 «■ Tk; OS <■ iwdS 



TRU 



L10* TALLY * FLS ; 
HI* END THENELSEI 

» true; 



GO ro l«; 



01310520 
01310530 

01310540 



fls * false; 

TOGT * 91 

THE N ELSE ( TEMPE 1 3 , TLMp L 2 3 > T EMPC 3 I > Tf.MP[ n J , T£MP [ 5 3 * 

TEMP[6]fTEMPC73#TEMP[flJ,T£MP[93#TEMPtlOJ#TEMPC113» 
TOGT#TRU#FLS)l 

_FILL ANSC*3 WITH OCTlf QCTQ* QC11* QCT1W 0CT1* QCT1> 



0CT1» 0CT0# OCT 1* GCTO» OCT li 



01310550 
01310560 
0131057 
01310580 
01310590 
01310600 

01310610 
01310620 
01310630 



CVN 

PNO 



li ; 
l3i; 



VERIFY 
END P131 



01310640 
01310650 
013 1 660 



; 



BEGIN 



IF COMMON 



FDUMMY tO »0 3»FDUMMY[ltQ]»f DUMMY t 2, 3*01 



THEN 



01310670 
01310680 
08000000 



IJ «= 1 



JK is 

END ELSE 
BEGIN 



I I JKK la 131 i 



08990000 
08990010 
06990 02 , 



JK is COMMON MQD 1000 
JKK l« JK I 

I F JK « Q THE N 



08*90030 
08990040 
08990050 



BEGIN 



08990060 
08990070 
Qfl 99Q 0fl0 



JK l« 1 ; JKK Is 131 



f n d ; 



08990090 
08990100 
06990110 



T* 



# • 



I 



• 



19 
20 



22 
23 
24 
25 
26 
27 
28 



90 

31 " 

32 

33 

34 

35 

36 

37 ~ 



42 
43 



47 
48 



SO 
51 
52 



55 
56 



IJ 

IF 



1* COMMON DIV 1000 ; 
IJ = THEN U := 1 



_£JsiDL 



FOR II l- 1 STEP 1 UNTIL I- DO 
FOR JJ Is JK STEP 1 UNTIL JKK DO 
CASr_JJ OF 



BEGIN 



__1__J_ 



DD, 



P2 

P3 

_PJL 



P5 

P6 

_P_7_ 



P9 

P 1 P 

Pll 

Pia 

P13 



dd; 



P14 

P15 
______ 



P18 

_____ 

P21 
_P22. 



DDJ 



P23 

P24 

P2t> 

P26 

P27 

_____ 
P2V 

P30 

P31 



P3_ 
P33 
P34 
P35 
P36 
P37 



P38 
P3V 

P4Q 



P4i 
P4_ 
P43 



P44 
P«5 
P46 
P47 
P48 



P50 ; 



DD ; 



P5i ; 
do; dp; 



op; 



06^90120 

08^90130 

_M___L__1. 

08990150 
08990160 
Qfl99Qt 7n 
08990180 
08^90190 
___i_t_J_Q__ 



09990010 
09990020 
099S.Q43X)- 



09990040 
09990050 
Q9 99X_3__t.Q 
09990062 
09990070 
0999-Q.aeO- 



09990090 
09V90100 
099 90 110 
09990120 
09990130 
09990140 



09990150 
09990160 

-fl59_ip_JLZfl 



09990172 
09990180 
099 90 19Q 



09990200 

09990210 

_P_9.li02.2i2_. 



09990230 

09990240 

_Q__9__J_____ 



09990260 
09990270 
09990 ?flQ 



09990290 
09990300 
Q9990 31Q 
09990320 
09990330 
09990340 



09990350 
09990360 
09990370 



09990380 
09990390 
09990400 



09990410 
09990420 
09990430 



09990440 
09990450 
09990452 



09990460 
09990470 
09990480 



li 



i 
• 



• 
• 



20 ' 
21 
22 

23 ' 

24 

25 



29 ' 
30 



34 
35 I 

36 
37 



42 



52 

53 I 



55 
56 ' 



e 



9 

10 
II 
12 



17 
18 
19 
20 
21 



E 

O 

Q 



22 
23 
24 
25 
26 
27 



28 
29 
30 

31 ~ 



32 

33 

34 
35 
36 

37 " 



38 
39 



42 
43 



44 
♦5 



49 
SO 



52 
53 



56 

56 



*L 



P5b ; 



DD 



P57 ; 
P6Q ; 



dd ; dd ; 



P61 
P62 



P63, 



P64 ; 
P66 t 



do ; 



P74 
P75 



oi?; dd; dd; dd; dd; dd; dd; 



_P7JLi 



P76; 
dd ; 



P79; 

P80 ; 

-P_8J__X..._ 



P91 ; 

_.0JLL_OJU. 



do; od; dd; dd; dd; do; dd; dd; dd, 



P94 
P95 
P96 



P97 
P98 
P99 



Pioo; 
pioi; 
P iQg;. 



P103; 
P1Q4; 
P105; 



P1D6; 
P107; 

pips; 



P109; 
pho; 
pui; 



Pll.ZJ 

Pin; 



JHLL 



PU5I 
Pll'6) 

PiU; 



Pile; 
PU9; 

Pl2Qj 



Piai; 
P122; 

PX23 1 



P124; 
P125; 
Pt26 ; 



P127J 

Pi2a; 



do; dp; 



09990^90 
09990^00 



09990510 

09990512 

_0_9_iiL0_5aO_ 



09990530 
09990540 
099905_5J3_. 



09990560 
09990562 
099 9057 



09990572 
09990580 
09990S 90 



09990600 
09990602 
09990610. 



09990620 
09990630 
09990640, 



09990642 
09990650 
09990652 



09990660 
09990670 
09990 ftfl0 



09990690 
09990700 
09990710 



09990720 
09990730 
09990740. 



09990750 
09990760 
0999077 

09990780 
09990790 
09990HQ0 



09990810 
09990820' 
099 9 Oft 30 

09990840 
09990850 
09990852 



09990860 

09990870 

-09990880 



09990890 
09990900 
09990910 



09990920 
09990930 
09990940 
09990950 
09990960 
09990970 



09990980 
0999099Q 



1< 



12 

13 



18 
19 
20 ( 

21 
22 



27 
28 
29 { 
30 
31 

32 i 
33 
34 

35 { 
36 
37 

36 ( 
39 



42 
43 



46 
47 i 
48 
49 



53 \ 



56 < 
5? 



• • 



k 
? 

3 



P131I 

END 

.END 

END. 
ENDIENO, 



i %. END. 0£.„C.ASfc,, STATEMENT 



LAST CARD ON OCKDING TAPE 
00Q0Q00OQ00OOO0)xaA4OC6 



09991000 
09991010 



09991020 
99999999 



I NTEGER LlAiAjSU I 



4 

5 

6 

7 

8 

9 
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